DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


**F ILE**1D**DBGTASK 
DDDDDDDD BBBBB888 GGGGGGGG TTTTTTTTIT AAAAAA SSSSSSSS KK KK 
DODDDDDD 688888888 GGGGGGGG TTTTTITTTT AAAAMA SSSSSSSS_ KK KK 
DD DD 8B BB GG TT AA AA SS us KK 
DD DD 6B BB GG TT AB AA SS KK me 
dD DD 8B BB GG TT AB AA SS KK KK 
DD DD BB GG TT ah AA SS KK * 
DD DD 68888888 GG TT AR Ab SSSSSS KKKKKK 
dD DD 888688888 GG TT A AA SSSSSS KKKKKK 
DD DD 8B BB GG 666666 TT AAAAAAAAAA SS KK K 
DD DD 88 BB GG 666666 TT AAAAAAAAAA SS KK KK 
dD DD 8B BB GG GG TT AR Aa SS KK KK eee 
0D DD 88 BB GG GG TT AR Ab SS KK KK eee 
DODDDDDD BBBBBB8B GGGGGG TT aA AA SSSSSSSS KK KK cove 
DDDDDDDD BBB8BBBB GGGG6GG TT AL AA SSSSSSSS KK KK coe 
LL III] SSSSSSSS 
LL 11101 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] $$ 
LL I] $$ 
LL I] $s 
LELLLLLLLL 11111 SSSSSSSS 
LLLLLLLLLL W111 SSSSSSSS 
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i MODULE FUNCTION 
i This module contains all routines that parse and execute all commands 
: a to DEBUG's multi-tasking support for ADA. 
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EQUIRE ‘SRC$:DBGPROLOG.REQ’; 
EQUIRE ‘SRCS$:DBGEXT.REQ'; ! ZCCREQUIRE OR LIB IN DBGPROLOG? -tbs))% 


ZC (NEEDED FOR FAULT_EXC AND TRAP_EXC -tbs))% 


wis 
DON 
4 


R 
R 
LIBRARY ‘LIBS$:DBGGEN.L32'; 


FORWARD ROUTINE 
CONV_TASK_NUM 

DBGSCONV- TASK" VALOE_NUM : NOVALUE, 
DBGSNEXECUTE SET TASK : NOVALUE 


' Converts an ADA task number to the corresponding task value. 
! Converts an ADA task value to the corresponding task number. 
! Execute the SET TASK command 
DBGSNEXECUT SHOO TASK : NOVALUE, ! Execute the SHOW TASK command 
' 
' 


G Anse -3ET TASK : NOVALU ! Parse the SET TASK command 
DBGSNPARSE-SHO@ TASK : NOVALUE, ! Parse the SHOW TASK command 
DBGEXTSPRIAT ROOTINE : NOVALUE, ! £¢(-tbs))2 
LOCAL _ROUT_NAME g ' CC me sere nr ona sce mms ener soman ween umn occan 


Allocates and Lists dynamic storage 

Counted ete ing matching routine 

Interface to Address Expression Interpreter 
Converts ASCII input to integer 

Signal a syntax error in command 

Shows current runframe nesting 


DBG$SYNTAR ERROR | NOVALUE, 


PDP DPD PAA & PEE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 EXTERNAL ROUTINE ADASDBGEXT : WEAK ADDRESSING MODE (GENERAL);  %((WHERE WILL THESE BE DECLARED? -tbs))% 
: at a ZDECLARED (ADAS_FACILITY) ' To Be declared in STARLET.REQ 

: J TERAL ADAS_FACILITY = 49 ; ! 2((-tbs))% 
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SSRIS ASE IS SSNS ARUN 2S Oe OP eOe 


EXTERNA 
DBGS$GB_LANGUAGE H ws ' Code for language setting 
DBG$GB-RADIX : VECTORS, BYTE), i Radix settings 
DBGSRURFRAME: BLOCK C,BYTE); ' User runframe 


SNS NNN SIO oO 
ws 


LITERAL 
'¢ 


' These literals are used both to identify the ADVERB node type and to 
: index into a bitvector to indicate the presence of particular ADVERB 
or NOUN nodes. 
TASK_TASK_LIST 
TASK-ACTIVE 


SSNS AAA AA AAA A MINI BPP PEE EEE 
=Sso iw See PS SSeS SEES 


' NOUN Literal 
' ADVERB (qualifier) literals 


uw 


TASK_CALLS 
TASK _DEADLOCK 
TASK" FULL 
TASK-HOLD 
T (synonym for ‘'RELEASE'’) 
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k § 
TASK 16-Sep-1984 02:43: AX-11 Bliss-32 v4.0-74 Pp 

7b e000 DBGSCONV_TASK_NUM_VALUE 12-808-138e 95:43:23 {oeBUG. SRC dB Fate o3004 et (33 
DBGSCS_ACTIVES P.AAA 
DBGS$CS-ALL= P.AAB 
DBG CSACALLSs P.AAC 
DBG$CS_DEADLOCK= P.AAD 
DBGSCS-FULL= P.AA 
DBGSCS-HOLD= P.AAF 
DBGS$CS_NOHOLD= P. AAG 
DBGSCS-PRIORITY= P.AAH 
DBGSCS_RELEASE= AAI 
DBG CSIRESTORES P.AAJ 
DBGSCS-STATE= ~AAK 
DBGSCS_STATISTICS= P.AAL 
DBGSCS_TERMINATE= P.AAM 
DBGSCS_VISIBLE= P.AAN 
DBGSCS_READY= P. AAO 
DBGS$CS_RUNNING= P. AAP 
DBGSCS-SUSPENDED= P.AAQ 
DBGSCS_TERMINATED= P.AAR 
DBGSCS-LEFT_PAREN= P.AAS 
DBGSCS-RIGHT_PAREN= P.AAT 
DBG$CS_COLON= AA 
DBGSES_ COMMAS P.AAV 
DBGSCS-CR= P. AAW 
DBG$CS_EQUAL= P.AAX 
DBGS$CS~SLASH= 


P.AAY 
EXTRN DBGSGET_TEMPMEM 
EXTRN DBGSNMATCH, DBGSNPARSE_ EXPRESSION 
EXTRN DBGSNSAVE_DECIMAL_INTEGER 
XTRN DBGSSYNTAR_ERROR 
XTRN DBGSTRACEBACK, DBG$GB_LANGUAGE 
EXTRN DBG$GB_RADIX, DBGSRUNFRAME 
EAK ADASDBGEXT 


.PSECT DBGSCODE,NOWRT, SHR, PIC,O | 
.ENTRY D NV_TASK_NUM_VALUE, Save nothin 5 1348. 
789359 - 7 : : 1367 | 

1872 | 


08 BC ODECOADA ar bo ited MOVL 3082, aTASK VALUE 
Be 80004 RET : aes 


; Routine Size: 11 bytes, Routine Base: DBGS$CODE + 0000 


5 
Ib-se -1984 02:43: AX-11 Bliss-32 V4.0-74 Page 6 
DBGSCONV_TASK_VALUE _NUM 1 me Het 95:45°83 YoeBUG. SRC Sactate o3ee] . (4) 
3 17 1 ye 1 ZSBTTL ‘DBGSCONV_TASK VALUE_NUM‘ 
; \t? ; ee : GLOBAL ROUTINE DBGSCORV_TASR_VALUE_NUM ( TASK_VALUE, TASK_NUMBER ) : NOVALUE = 
: 175 1 2 1 | FUNCTION 
3 178 1377 1! This routine converts an ADA task value to the corresponding task 
cor 1 a 1! number. It calls the ADA run time system to perform the actual 
: 178 1379 (1 : conversion. 
; 180 i ? i i INPUT 
; «6181 1 § 7: TASK_VALUE = Address of a longword containing the task value to be 
P. % 1 1! converted. 
3 4% 1384 1! 
9 1385 1 ! OUTPUT 
; 185 1 $ 1! TASK NUMBER = Address of a longword to contain the resulting task 
52 = 1 1! number. 
= % 1388 1! 
243 1389 1! 
; 189 1390 1 
3; 190 1391 BEGIN 
TBS 
: 198 : Be » TASK_NUMBER = 42; Z2((TO BE REPLACED WITH SOME REAL CODE -tbs))% 
; 195 % RETURN 0; 
: 197 1398 END; ! end of DBGSCONV_TASK_VALUE_NUM 
0000 00000 .ENTRY DBGSCONV_TASK_VALUE_NUM, Save nothing 5 1374 | 
08 BC 2A 0 BO0Ke MOVL #42, @TASK_NUMBER : ! of 


; Routine Size: 7 bytes, Routine Base: DBGSCODE + 0008 | 


nS 
yOe-000 DBGSNEXECUTE_SET_TASK 1er8ee= 188s 93:77:83 oEeug. BkcSbacsatn:o3e,9 Page gf 
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Wirorurorororroror 
REALS SONOS UV SOOHNAAP WWI OSR RAR WOOD 


1 1 ZSBTTL "DBGSNEXECUTE SET TASK’ 
tee oe DBGSNEXECOTE_SET_TASK ( VERB_NODE : REF DBGSVERB_NODE ) : 
= 


—_ 
—oO 


FUNCTION 
This routine executes the SET TASK command. It accepts the address 
of a Verb Node as input and executes the corresponding command. 


' 
i 
i 
i 
i 
! INPUTS 

VERB_NODE = A pointer to the Verb Node for the SET TASK command 
1 

i 

i 

i 

i] 


WMFwre 


to be executed. The Verb Node and its attached Adverb 
and Noun Nodes contain all information picked up during 
the parsing of the command. 


! OUTPUTS 
NONE 


BEGIN 

AL 

AXXXAAX; !€<eeeeeeer= Local declarations -------- 
14 
Check for conflicting qualifiers and parameters. %((REQUIRED? -tbs))% 
"JF CONFLICT (QUALIFIERS, (ALL, TASK_LIST) ) 

OR CONFLICT (QUALIFIERS, (ALL, ACTIVE) ) 

OR CONFLICT (QUALIFIERS, (ALL, VISIBLE) ) Z( (NEED OTHER CONFLICTS? -tbs))% 


HEN 
SIGNAL (DBG$_CONFLICT); 


RETURN 0; 
END; ! end of DBGSNEXECUTE_SET_TASK 


= FOROPOPORoRONORONoNORONONONONONONO NY 2 = 


Ce ee ee ee ee 
Sak ek ek ek ek ek ed ek kee te ke ek ke ek ek kk tt a ke et ke et 


VEUN —O OONOULS WN —“OVOONOULS WN —O0@ 


WWIII oofononononononony) 2 2 


; Routine Size: 3 bytes, Routine Base: DBGSCODE + 0012 


00 ENTRY DBGSNEXECUTE_SET_TASK, Save nothing : 1490, 
RET 3 5 


rc 


SEeeee 
DONOUVS WO 
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Be Be Se Se Se Se Be Se Se Se Se Ge Se Se Ge Be Se Se Se Se Ge Se Ge Se Fe Se Se Ge Ge Ge Se Ge Ge Fe Se Se Se SH Se Se Ge Se Ss Se Ge Ge Ge SSF Se Ge SE SGe es See 
™ 


; 


DBGSNEXECUTE_SHOW_ TASK 


ZSBTTL "DBGSNEXECUTE SHOW TASK’ 
—, ot ey DBGSNEXECUTE_SHOW_TASK ( VERB_NODE : REF DBGSVERB_NODE ) : 


— 


ones : 
aR 


WSoSen-t90s 02:45:49 YARGND Bl ias=SZ we.0c74e Page 8 


FUNCTION 


This routine executes the SHOW TASK command. It sceeers the qrerene 
of a Verb Node as input and executes the corresponding command. 


INPUTS 


VERB_NODE = A pointer to the Verb Node for the SHOW TASK command 
to be executed. The Verb Node and its attached Adverb 
and Noun Nodes contain all information picked up during 
the parsing of the command. 


OUTPUTS 
NONE 


ad 
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Semantics of the ver lous ea tieee and parameters for a simple SHOW TASK 
command or a SHOW TASK /CALLS (i.e. not /DEADLOCK or /STATISTICS). In this 
oy GN. 1 _—. :. indicate presence or absence of the qualifiers and parameters 

SH ow oTASK 45 /CALL J C /PRI J C /STATE J C /WOLD J C /ALL J CC TASK_LIST,,. J 
eae is the set of Seeks the command is applied to where 


VISIBLE = visi se | task 
LIST = tasks in the task_list 
ACL = all existing tasks ii Cterninated » as well? -tbs))% 
3 = all existing tasks matching ( /PRI and /STATE and /HOL 


pS dD) 
IST PSH tesks in the fast. ater matching ( Age: and /STATE and /HOLD ) 
aLconTtin are th she. cone ened. where 


J 
GS = =! sPRtOR iy GET ASTATE tlle TASK E “GET SREGISTERS DBGSTRACEBACK J 


roost | . of the se gu sce 
The + Get REGI TER. on Straceeae is done when /CALLS is specified. 
/PRI Oo 
7STATE. or 
/HOLD /ALL TASK_LIST TASK SET ALGORITHM FAILURES 
8 0 ZVISIBLE $ 4((-tbs))% 
1 T LIST née 
1 9 ALL wal 
1 T LIST Baik 
1 8 0 PSH Be ees 
: : ) T_LIST PSH Goose 
1 1 1 T_LIST PSH G3... 
This results in four different sequences as follow ? 
P := /PRI] or /STATE or /HOLD A ALL T o TASK. LIST 
(P “PA)~T ==> NS... 
PT at | 
“PT s=> §.. 
“P"A"T = ~(PeAeT) ==> § 
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DBGSNEXECUTE_SHOW_TASK 
1 ‘ 


1 i- 

BEGIN 

MACRO 
14 
SDBG_VALFLD_INI == Dynamically initializes a block field with a value. 
$DBG_VALFLD_INI (block name, field_name, value) () = 
block_name ECfield_name] = value %; 

KE YWORDMACRO 


1+ 
! DBGEXT_INIT <== Initializes the DBGEXT CONTROL BLOCK. It BINDs the 
' name of the block for later use by the other DBGEXT function macros, 
‘ zero fills the block, sets the facility and hig routine fields with 
! predetermined values, and optionally sets other fields with the values 
given by the keyword parameters. 
DBGEXT_INIT (dbgext, function, value, number, priority, state, hold) = 
ZIF ZNULL (dbgext) XTHEN ZWARN ("DBGEXT must be specified’) %FI 
BIND DBGEXTSSCONTROL_BLOCK = dbgext : DBGEXTSCONTROL_BLOCK; 
CHSFILL (0, DBGEXTSK_ADA_SIZE1 * ZUPVAL, CHSPTR (dbgext) ); 


DBGEXTSSCONTROL_BLOCK COBGEXTSV_FACILITY 1D] = ADAS_FACILITY; 
DBGEXTSSCONTROL_BLOCK COBGEXTSL-PRINT_ROOTINE) = DBGEXTSPRINT_ROUTINE; 


SDBG_VALFLD_INI (DBGEXTSSCONTROL_BLOCK, DBGEXTSW_FUNCTION CODE, function); 
SDBG_VALFLD_INI (DBGEXTSSCONTROL_ BLOCK, DBGEXTSL_ TASK VALOE value); 
° n 


SDBG_VALFLD-INI (DBGEXTSSCONTROL_BLOCK, DBGEXTSL—TASK_NUMBE umber); 


MAY a 1 E SOME FLAG BITS 2((-tbs))% 
= 


i EXTSV_AL 

i OBGEXTSV FULL = 

i DBGEXTS$V“NO_HEADER = NOT XNULL (no_header) 
DBGEXTSSCONTROL BLOCK CDBGEXTSV PRIORITY SPECIFIED] = NOT ENULL (priority): 
$DBG_VALFLD_INI~ (DBGEXTSSCONTROC_BLOCK, BBGEXTSL_PRIORITY, priority); 
DBGEXTSSCONTROL_BLOCK CDBGEXTSV_STATE SPECIFIED] = NOT ZNULL (state); 
$DBG_VALFLD_INI~ (DBGEXTSSCONTROC_BLOCR, DBGEXTSV_STATE, state); 
DBGEXTSSCONTROL_BLOCK COBGEXTSV_HOLD SPECIFIED) = NOT ZNULL (hold); 
SDBG_VALFLD_INI~(DBGEXTS CONTROC_BLOCK, DBGEXT$SV_HOLD, hold); 


CALL_ADA ~- Calis the ADA run time system via the DEBUG External 
Interface. Jt assumes that a DBGEXT_INIT has been performed to bind 
name DBGEXTSSCONTROL BLOCK to a reat control block. 

It optionally sets other fields with the values 
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given by the keyword parameters. 


s " CALL ADA (function, value, number, priority, state, hold) = 
5 i DBG ~WALELD INI epeeert SCONTROL a ett DBGEXTSwW_ 4 Be ny i? vepetranes 
5 M $DBG_ DIINI (DBGEXTSSCONTROL_BL OCK, DBGEXT$L— K_VALOE 
38 . $DBG_ ~VALELDZINI (DBGEXTSSCONTROL~ BLOCK, DBGEXTSL~ TASK -NURBER, noberii 
9 M ! MAY INITIALIZE SOME FLAG BITS %((-tbs))% 
60 ” DBGEXT v=o a = 
61 i, i DBGEXTSV_FU = 
? : ; DBGEXTSV_N O-HEADER = NOT ZNULL (no_header) 
64 M DBGEXTSSCONTROL_BLOCK COBGEXTSV_PRIORITY SPECIFIED] = NOT %NULL for tortty): 
2 " SDBG_VALFLD_INI” (DBGEXTSSCONTROC_BLOCK, BBGEXTSL_PRIORITY, priority); 
67 M DBGEXTSSCONTROL_BLOCK COBGEXTSV_STATE SPECIFIED] = NOT %NULL (state); 
re e $SDBG_VALFLD_INI~ (DBGEXTSSCONTROC_BLOCR, DBGEXTSV_STATE, state); 
70 M DBGEXTSSCONTROL_BLOCK COBGEXTSV_HOLD_ SPECIFIED] = NOT ZNULL (hold); 
q} : $DBG_VALFLD_INI~ (DBGEXTSSCONTROC_BLOCK, DBGEXT$V_HOLD, hold); 
ie, 7 i awe ADASDBGEXT (DBGEXTSSCONTROL_BLOCK) ! Call ADA 
$2 4 SIGNAL (Z(CINTERNAL ERROR -tbs))%); 
- IF NOT .DBGEXTSSCONTROL_BLOCK COBGEXTSL STATUS] ' and check status. 
4 . SIGNAL (%((SOME ERROR -tbs))%); 
80 > 
3 
33 


DO_NEXT_TASK == Calls the NEXT_TASK function without ghanging s any 
fields of the control block other than FUNCTION CODE — 

optionally TASK_VALUE. It assumes that a DBGEXT_IN 

been performed fo bind the name DBGEXTSSCONTROL BLOCK ~y a real control 
block. It returns the new TASK_VALUE. 


bo -NEXT_TASK (task) = 


DBGEXTSSCONTROL_BLOCK DBCEA TSU” FUNCTION CODE) = DBGEXTSK_NEXT_TASK; 
DBGENTSSCONTROL BL BLOCK DBGEXTSL-STATUS) = 0; 


! set function 
' and clear status 
(TA ' optionally use a 
ZTHEN DBGEXTSSCONTROL BLOCK COBGEXTSL_TASK_VALUE] = TASK; } 
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4 

fi 

&§ 

4 

fi] 

: task value 

2 IF NOT ADASDBGEXT (DBGEXTSSCONTROL_BLOCK) ' call ada 
400 fa SIGNAL (Z( (INTERNAL ERROR -tbs))%); 
rt't - THEN -DBGEXTSSCONTROL _BLOCK Copeexrsi STATUS) ' and check status 
40 fe GNAL (2( (SOME genes -tbs))% 
ry i ? ,DBGEXTSSCONTROL, BLOCK COBGEXTSL_ tisk VALUE) ' return the new task value 
4 5 
109 gs 's 
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1b-s0 at 7 96: +e $3 DEBUG. SRC Saatate O35. ° (6) 
00. SHOW. TASK == Calls the SHOW TASK tunes ton robe rAtO8, any 

Helds Sf the control block ochor than 1 ct iON N_COD grat and 

optionally TASK_VALUE. It a shore xf 

Bren, eee ormed fo bind the om mOBGEXT stontnoc Taint % areal control 

DO_SHOW TASK (task) = 


N 
DBGEXTSSCONTROL BLOCK (DBGEXTSW “eyATUso = 5 = DBGEXTSK_SHOW_TASK; 
Sta ATSSEONTROL (BLOCK DBGEXTSLOSTATUS 


RTHEN DBGEXTSSCONTROL_BLOCK COBGEXTSL_TASK_VALUE] = TASK; 
Md NOT ADASDBGEXT (DBGEXTSSCONTROL BLOCK) 


SIGNAL (2( (INTERNAL ERROR -tbs))%); 
IF NOT .DBGEXTSSCONTROL_BLOCK COBGEXTSL _STATUSI 


ees (2 (SOME ERROR -tbs))%); 


set function 

and clear status 

optionally use a 
task value 


call ada 


and check status 


DO_SHOW CALLS <== Implements gers of SHOW TASK /CALLS by calling the 

GET ghGGisten function and passi ng the PC and FP to the DEBUG traceback 
° yi phous  foeneing any fields of the control block other than 

FUNCTI CODE, STATUS, and optionally TASK_VALUE. It assumes that a 

DBGEXT_INIT has been performed 

to bind the name DBGE TSSCONTROL BLOCK to a real control block. 


bo oS RON CALLS (cail_level) = ! (task) = Z¢(DONT THINK TASK IS NEEDED HERE -tbs))% 
DBGEXTSSCONTROL_BLOCK CDBGEXTSW_FUNCTION_CODE] = DBGEXTSK_GET -REGISTERS; ! ! set function 


> Mm 
oe 
_* 
—_ 


DBGEXTSSCONTROL tt DBGEXTSL-STATUS) = 0; ' and clear status 
Z1F NOT ZNULL BHA A use a 


(TA i 
ZTHEN DBGEXTSSCONTROL -BLOCK COBGEXTSL_TASK_VALUE] = TASK; i task value 
IF NOT ADASDBGEXT (DBGEXTSSCONTROL BLOCK) : 

SIGNAL (Z(CINTERNAL ERROR -tbs))2%); 


IF NOT ( .DBGEXTSSCONTROL BLOCK CDBGEXTSL prarys) : 
oe ~DBGEXTSSCONTROL _BCOCK COBGEXTSL_STATUS) EQL DBGEXTSK_TASK_IS_ACTIVE ) 


SIGNAL (Z((SOME ERROR -tbs))%); 
' Check for active task and pass registers to traceback. 


ir »-DBGEXTSSCONTROL_BLOCK COBGEXTSL_STATUS) EQL DOSERT SR, “rs IS_ACTIVE 
TH og EBOG fas the register set 


LOCAL 
EXC_TYPE; ! Exception type (trap=1, fault=2) 


' exception type is based on whether the last exception 
: was @ fault, break or step-end 


if .dbg$runframe (dbg$v_at_fault) OR 


' call ada 


and check status 


<9 


; 
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; 465 M 1664 “asruntrese dogsv. at_break] OR H 
3 £08 M 1665 dbg$runframe (dbg$v_at 2step. end) $ 
; 46 41 98 THEN exc_type = fault_ex ! 2(¢ NEED TO LIB DBGGEN -tbs))% 3 
3 oe . 199 ELSE exc_type = trap_ Sess : 
: £33 ™ 1869 dbg$traceback (. Sr erene dbg$l_user_pc : 
; 471 Mm 16 9 gba® runframe (dbg$l-us er “tpl. : 
3 of§ 1ere we sEXC_TYPE, call_level ) : 
: 67 M 167 ; 
; 475 M 1674 SE ! ADA has the register set : 
: rh m 1675 DBGSTRACEBACK (. peeerT SCONTROL _BLOCK poeese TSL_P ci. ; 
3 67 " 1976 DBGEXTSSCONTROL— BLOCK LDBGE TSL-F e $ 
3; 478 M 167 pen EXC, call_lével ); ' ZC(FAULT or TRAP? -tbs))% ; 
ee a). : 
: $8 168 LOCAL 
> 48 16 ; ADA CONTROL : REF DBGEXTSCONTROL BLOCK, : 
; 484 168 ADvERS NODE REF DBGSADVERB_NODE, é 
3 re H4 1684 UN_NODE : REF DBGSNOUN VNODES 3 
3; 4 1685 YT ! Link field to next adverb or noun node. 3 
: 487 1686 CALLS_VALUE : INITIAL (0) : 
; 488 16 PRIORITY Y VALUE : INITIA (0), ; 
; 489 1688 STATE_VACUE : INITIAL (bp ; 
; 490 1689 QUALIFIERS : BITVECTOR TASK_MAKX_QUAL + 1) vali tier state vector. ; 
3 red 1929 INITIAL (BYTE (REP TASK_MAX_QUAL / iePUNIT + 1 OF (0))); : 
: 49 169 rr : 
: 4694 1898 Walk the tree and set bits in the qualifier state vector. Also sis* up the values of the adverb 3 
3; 495 1694 nodes representing the parameters supplied to the /CALLS, /PRIORITY, and /STATE qualifiers. This 3 
3 $38 1e32 algorithm will cause the last value to superceed earlier values, when multiple values are given. : 
; $38 1697 if -VERB_NODE CDBGSL_VERB_OBJECT_PTR] NEQ 0 ! Check for an explicit task List. 3 
: $00 1899 QUALIFIERS, CTASK TASK_LIST) = : 
; 501 1700 LINK = VERB_NO DE [BGs DBGSL_VERB_ ADVERB. wii 3F ! Get Link to the adverb nodes. ; 
3 508 1708 SIL E "aga ' Chain down the adverb nodes. : 
: 506 17 ADVERB_NODE = ..LINK ; 
; 505 bz oN IFTERS C ADVERB. ‘NO E COBG$B_ADVERB_LITERAL) ) = TRUE; : 
: 5] 1? 5 SELES TONE fovens _NOBE DBGSB_ ADVERB LITERALJ OF ; 
; 08 17 TASK_CALLS ] : : 
é 17 3 CACLS_VALUE = - ADVERB NODE COBG$L_ADVERB_VALUE) 3 
3 10 17 {C TASK_PRYOR] 3 
3 11 1710 PRIORITY. ALUE = ,ADVERB_NODE COBGS$L_ADVERB_VALUE]) 3 
: \¢ 1711 {C TASK_STAT é 
: 17 Har : STATE VALUE = ,ADVERB_NODE COBG$L_ADVERB_VALUE); : 
: 515 1714 LINK = ADVERB_NODE CDBGSL_ADVERB_LINK); ! Link to next node. ; 
3 16 Ht AF END; : 
: 18 1713 ‘6 ; 
3 » fay : Check for conflicting qualifiers and parameters. %((what about /FULL ? -tbs))% : 
: 354 1720 if CONFLICT (QUALIFIERS, (CALLS, DEADLOCK, STATISTICS) ) ! Only one action allowed. : 
| 
L 


F 
16S 
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3 1721 THEN 
17 : SIGNAL (DBG$_CONFLICT); 
é 17 
5 1704 ‘6 
8 iy 5 } Get a control block. 
8 7 5 iF -QUALIFIERS CTASK_CALLS 
9 7 ; EL se ADAS CONTROL = DBGSGET_TEMPMEM (DBGEXT$K_ADA_SIZE2) ! Need long block. 
§ 1 ADA_CONTROL = DBGSGET_TEMPMEM (DBGEXTSK_ADA_SIZE1); ' Need short block. 
17 '¢ 
5 i 7 } Fill out the control block and perform the required action. 
17 SELECTONE TRUE OF 
8 7 $ SET 
40 17 5 '¢ 
41 1740 i SHOW TASK /DEADLOCK 
4¢ 1741 ie 
43 124¢ c QUALIFIERS CTASK_DEADLOCK) } : 
45 P 1744 DBGEXT_INIT (DBGEXT = .ADA_CONTROL ! Initialize block 
46 1745 FUNCTION = DBGEXTSK_SHOW DEADLOCK); i “and set function. 
4 1746 1F NOT ADASDBGEXT (.ADA"CONTROL) i Call ADA 
49 1748 SIGNAL (Z( (INTERNAL ERROR -tbs))%); 
30 1749 LF NOT .DBGEXTS$SCONTROL_BLOCK CDBGEXTSL_STATUS) ' and check status. 
3g es: SIGNAL (%((SOME ERROR -tbs))%); 
ae ba 
55 1754 '¢ 
36 7 5 i SHOW TASK /STATISTICS 
38 17 $ QUAL IF TERS CTASK_STATISTICS} ) : 
60 Pp 1388 DBGEXT_INIT (DBGEXT = .ADA CONTROL ' Initialize block 
61 P 1760 'Z((-tbs))2 FUNCTION = DBGEXTSK_SHOW_STATISTICS); t “and set function. 
66 1761 FUNCTION = DBGEXTSK_SHOW STAT); ' and set function. 
63 1768 IF NOT ADASDBGEXT (.ADA-CONTROL) ' Call ADA 
65 1764 SIGNAL (Z( (INTERNAL ERROR -tbs))2); 
66 1765 1F NOT .DBGEXTSSCONTROL_BLOCK COBGEXTSL_STATUS) ! and check status. 
68 1769 SIGNAL (%((SOME ERROR -tbs))%); 
SOS ~ 
71 170 '¢ 
2 177 i SHOW TASK or SHOW TASK /CALLS 
ees ma 
7 1775 BIND 
7 1776 ALL = QUALIFIERS CTASK_ALLJ, 
78 177 LIST = .QUALIFIERS CTASR_TASK_LIST), 
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it DBGSNEXECUTE_SHOW_TASK Haat 96: $3: $3 DEBUG. SAC Seatatecs g334 age 6) 
79 As PSH = .QUALIFIERS CTASK_PRIORITY] OR .QUALIFIERS CTASK_STATE] OR .QUALIFIERS CTASK_HOLD); 

1 7 SELECTONE TRUE OF 
§ SET 
7 { 1 (Pp + “PA)"T ==> NS... 
5 , 4 { (PSH OR (NOT PSH AND ALL)) AND NOT LIST ) : 
7 BEGIN 
7 $ LOCAL 
7 : FIRST_TASK; 
P17 DBGEXT_INTT (DBGEXT = .ADA_CONTR 
91 P17 PRIORITY = . PRIORITY OVALUE, 
% P 1791 STATE = ,STATE_VAL LUE 
9 198 HOLD Guns 1FTERS fASK_HOLD) ); 
9% 79 FIRST_TASK = DO_NEXT TASK ( 
4 a i ee IAst. TASK EGLU 0” ' mull task ==> EXIT 
97 796 SIGNAL (%((NO TASKS MATCH RESTRICTION -tbs))%); 
$ IR - 
600 138 DO_SHOW TASK (): Z( (HEADER CONTROL NEEDED -tbs))% ' 
601 90 IF jQUACIFLERS CtASK_CALLS) 
608 0¢ . DO_SHOW_CALLS (.CALLS_VALUE); 
605 04 UNTIL .FIRST_TASK EQLU DO_NEXT_TASK (); ! cycled through all tasks 
one 05 END; 
608 89 ! pT ==> GS... 
{ PSH AND LIST ) : 


DOGEXT_INIT (DBGEXT = .ADA_CONTROL); 


i Walk down the chain of noun nodes. Pick up tte potater to 2((THE PRIMARY DESC -tbs) 
and the value of the task. Then do the SHOW_TASK. 


LINK = VERB wane € [OCGSL.VERS_OBJECT PIRI; ! Get Link to the noun nodes. 
WHIL LE git Ine NEG dO ! Chain down the noun nodes. 


te nt 
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NOUN_N = NK; 
: <task_value> = (.NOUN_NODE CDBG$L_NOUN_VALUE]) ([<task_value_field>] ; %((need stru 
'¢ 


Check PRIORITY, STATE, and HOLD 


CHECK_PSH: 
BEGIN 
SELECT TRUE OF 
SET 


C .QUALIFIERS CTASK_PRIORITY) ) : 


CALL ADA, (FUNCTION, =  DBGEXTSK 
-ADA_CONTROL COBGEXTS$L_PRI 
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; 1835 q THEN 
3 18 § LEAVE CHECK_PSH; 
3 2 \j END; 
; 64 i $ C .QUALIFIERS CTASK_STATE) J : 
: oH rT: ; CALL_ADA (FUNCTION = DBGEXTSK GET_STATE): 
; ot i ¢ 4 IF ,ADA_CONTROL DBGEXTSV_STATE) AND .STATE_VALUE EQL 0 
: 665 1844 7 LEAVE CHECK_PSH; 
; 666 1845 6 END; 
; ot8 18¢7 é C “QUAL TETERS CTASK_HOLD) J : 
: 650 1809 7 CALL ADA (FUNCTION = DBGEXTSK GET STATE); 
; 691 1831 , LF NOT .ADA_CONTROL CDBGEXTS$V—HOLB 
; £38 18 ¢ 2 LEAVE CHECK_PSH; 
; 654 1853 6 END; 
; 655 1854 6 
; 6 § 1855 6 TES; 
; 658 1889 6 DO_SHOW TASK (); ! <task_value> %((-tbs))% 
; 659 1858 6 IF~.QUACIFIERS ETASK_CALLSJ 
: 661 1860 DO_SHOW_CALLS (.CALLS_VALUE); 
; 66¢ 1861 END; 
; 664 1868 LINK = NOUN_NODE CDBGSL_NOUN_LINK); ! Link to next node. 
: ose ise 3 wo 
: ree 1508 ! ‘ s=> S.. 
3 669 1868 ; { NOT PSH AND LIST) : 
; 671 1870 4 DBGEXT_INIT (DBGEXT = .ADA CONTROL); 
: ore 187 4 i Walk down the chain of noun nodes. Pick up the pointer to 2((THE PRIMARY DESC -tbs) 
: ore 14 ? ! and the value of the task. Then do the SHOW_TASK. 
; 676 1875 4 LINK = VERB_NODE CDBGSL_VERB_OBJECT_PTRI; ! Get Link to the noun nodes. 
; of : , 4 WHILE. LINE NEQ dO ' Chain down the noun nodes. 
; ret 187 NOUN, NODE = . LINK; 
; 6 ; ' 4s : <tasK_value> = (.NOUN_NODE CDBGS$L_NOUN_VALUEJ) ([<task_value_field>] ; %((need stru 
i 6 4 1881 DO_SHOW_TASK (); ! <task_value> %((-tbs))% 
; ; TF QUALIFIERS CTASK_CALLS) 
; 1 DO_SHOW_CALLS (.CALLS_ VALUE); 
3 ' 5 ? LINK ="NOUN-NODE CDBG$L_NOUN_LINK); ! Link to next node. 
: END; 
; 1 ' — “PTA"T = “(PeAeT) ==> § 
: 1 { NOT (PSH AND ALL AND LIST) J : 
: 1891 4 BEGIN 
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; 1893 4 

Bo ime 

; £35 1 2% 

eg 

: 1 TES 

: 78 13 END 

r 3 19 ’ 

; f 1 TES; 

3 5 1 

3; 7 1905 

Ps 1 RETURN 0; 

3 os 19 

; 709 1908 END; 
SE 
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.ADA_ CONTROL); 
TASK (); 

~QUACIFIERS ETASK_CALLSJ 

DO_SHOW_CALLS (.CALLS_VALUE); 


! £0(0?-tbs))% 
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! ZC(NEED GLOBAL SYMBOL FOR ZVISIBLE -tbs))% 


! end of DBGSNEXECUTE_SHOW_TASK 
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D 15 BLEQ 8s ; 
00028158 BF oD PUSHL #164184 : 1722 
000000006 99 } Fe CALLS #1, LIBSSIGNAL : 
04 E 8$: BBC 4 ‘ GUALIFIERS, 9$ ; 17 z 
0 or ton 
tle 3 g 
000000006 9 1 FB OOO7F 10$: CALLS #1, DBGSGET_TEMPMEM : 
0 06 MOVL RO, ADA_CONTRO § 
7 9 4 : BBC a. QUATIFIERS 11$ : 17% 
28 0 6E 9 C 8 MOVCS #0, (SP), #0, #40, (ADA_CONTROL) ; 176 
02 aA? 0c 0 it FO 0009 INSV #469 “9 #12, 2(ADA_CONTROL) : 
20 A 0000v CF 3 MOVAB DBGEXTSPRINT ROUTINE, 32(ADA_CONTROL) : 
67 6 8 OF MOVW #6, (ADA_ CONTROL) : | 
esi 7 DD te picae ADA ie! we + 1746 
000000006 00 1 FB A CALLS #1, ADASDBGEXT : | 
B 0 t AF BLBC =—_- RO. «12 : 
1 00082 BRB : 1749) 
39 59 5 0 B4 11$: BBC #11, QUALIFIERS, 15$ > 1757) 
28 00 33 p C 90088 MOVCS #0,°(SP), #0, #40, (ADA_CONTROL) > 1761. 
U Py 
02 A7 oc 0 $f FO OOOBE INSV #49, #0, #12, 2(ADA_CONTROL) é 
20 A 0000v CF 3 0004 MOVAB DBGEXTSPRINT ROUTINE, 32(ADA_CONTROL) : 
67 5 ; OCA MOVW #5, (ADA_CONTROL) : 
— FB gape sp comrton Lee 
000000006 00 Q1 FB 00005 CALLS #1, ADASDBGEXT : 
0 EB OOODA BLBS “ : 
000000006 00 00 FB ODD 128: CALLS #0, LIBSSIGNAL : 1764. 
01 04 A £9 es 138: BLEC 4(ADA_CONTROL), 14$ ; 1765 | 
000000006 00 00 FB E9 148: CALLS #0, LIBSSIGNAL ; 1767 | 
50 59 01 07 EF F115$: EXTZV #7, #1, QUALIFIERS, RO : 1778) 
51 59 ot OA EE £6 EXIZy #10, wi, QUALIFIERS, R1 | 
52 59 gi Q EF Fe EXTZy H . ", QUALIFIERS, R2 : | 
51 59 gi EF 00106 EXTZV #2. #1, QUALIFIERS, R1 + 1784. 
2} ES OOTOE Bists ROL RT Fog 
52 59 g1 EF i EXTZY #0. #1, QUALIFIERS, R2 : 
1 CA 1 BICL2 Re. RI : 
01 1 CMPL sR), #1 : 
3 ; 1i¢ BEQL «=s«d6$ ; | 
012F If BRW 33$ ; 
28 00 6E e C 16$:  MOVCS #0, (SP), #0, #40, (ADA_CONTROL) ; 1792 
A7 1 £0 INSV #69, #0, #12, 2(ADA_CONTROL) : 
af ns 20 0° 0000v CF OE MOVAB seextePRing asutine” 32(ADA_CONTROL) ; 
5 18 «A? } 3 MOV 4(ADA_CONTROL), RO : 
é9 4 BISB2 #4, (RO) ; 
1c OA 5 p A MOVL. PRIORITY_VALUE, 28(ADA_CONTROL) ; 
60 E Biss2 # : 
02 a0 04 0 B F 4 INSV  STATE_VALUE, #0, #4, 2(RO) ; 
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#1, (RO) F 
59 o} ; FF ch ExtZv rt a, QUALIFIERS, R1 ; 
; } 60 4 MOVW #3. (ADA_CONTROL) + 1793 
SS Bee Bee eee te ; 
w HE Ba, aire ; 
000000006 9 s FB $ CALLS a} -ADASDGEXT ; 
oonnnes : : ALBIS ans, Gigs Gstitgtow : 
000000006 00 : "CALLS ~=s #0, _ LIBSSIGNA ; 
10 A 7D 18$: VL 16¢ADA_C CONTROL ), FIRST_TASK : 
be § be aE ; : NOVAB FIRS T_TAS Lt ; 1796 
A #0, L1B$S + 1796) 
commons op EI a, ae! URIS f) 
85 5D 3 sist a TROL ; 
000000006 00 on FB 96 CALLS ra “ADASDBGEXT 3 | 
F A CALLS st! $S1GNAL : | 
coon Bigg BB | ad 
Sa: 8 G3 1 BOB) 218: Be a a OUALIF TERS 298 : 1909 
D4 00188 CLRL = (R25 : 
5 DD 001BA PUSHL  ADA_CONTROL : 
000000006 : i Fe aC CALLS #1, -~ADASDBGEXT 
00 F Cé CALLS #0 5 tl SIGNAL : 
mere FR PT : 
13 b3 L 3 
000000006 09 3 Fe OTD} == CALLS. a0 “apgstou | 
1 DF =—C«&NESGD : : 
0000006 00 5 £6 E1 BBS DBGSRUNE RAME +73, 24$ 
. aided BB 000000006 2 i Bec bacsninc Rane 54 258 : 
FB 248: MOVL # _TYPE : 
tt Om ie 3 
ofits Hh RE Sia Sn len : 
$609 S008 o BD O0Z0A PUSHL GSRUNF RAME +64 ; 
A OD 12 273: PUSHL CALLS_VALUE ; 
+ BO 8051 PUSHE 92(ADA_CONTROL) 
oe ed oe, See PE tern : 
amr A ‘ ‘ 558: Ovi they ADA-< CONTROL ) ; 1804 
D PUSHL ¢ : 
000000006 00 5 FB A CALLS ton ADA ADASDBGEXT : 


8 eee _— 
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7 E BLBS =_-«RO, - 308 3 
000000006 3 i CALLS Pt LISS 1GNAL ; 
6 E 308: @LBS (R2), 31 : 
000000096 9 F f CALLS #0 C1BSS1GNAL : 
1 046 A 45 318:  CMPL AST_TASK, 16(ADA_CONTROL) : 
FRE te Bye $s 
4 F 328 RET : 17 
51 59 1 0 EF HH EXTZV #0, #1, QUALIFIERS, R1 : 1508 
1 1 02 RCOML R1, RI : 
” 3 : b c ee Ba fl 
F BEQL ‘ F | 
0156 31 00261 BRW 7$ : 
2a 00 6E e C 64 34$:  MOVCS #0, (SP), #0, #40, (ADA_CONTROL) : 1810. 
02 a7 0c 0 1 £0 a INSV #49, #0, #12, 2(ADA_CONTROL) : 
20 =A 0099v CF 43 “4 MOVAB bacextSénint ROUTINE, 32(ADA_CONTROL) ; 
1 ee 0 pond 
$3 08 «AB § 7D MOV 8(RB), LINK + 1815 
66 D 135$:  TSTL (LINKS > 1816. 
1 i : pues 36$ 3 
52 66 00 36$:  MOVL (LINK), NOUN_NODE : 1820) 
9 ? 9 S16 QUALIFIERS > 1831 
67 oe 60 MOV i3, (ADA_CONTROL) : 1833 
63 : A BICB2 #7, (R3) F 
7 DD 0029 PUSHL  ADA_CONTROL : 
000000006 i g1 Fe 9 CALLS i, ADASDBGEXT : 
000000006 9 00 Fe oF CALLS ao. LIBSSIG : 
0 04 a7? € A6 37%: BLBS  4(ADA_CONTROL), 38S : 
000000006 00 00 F AA CALLS 49 LTBSSIGNA ; 
04 10 «A? OE B1 38%:  BLBC $28ADA_CONTROL), 39S : 1834. 
. : BS Ist PR ORITY_VALUE ; | 
2c 59 AE B9 39$: BBC #10, QUALIFIERS, 42$ : 1839. 
67 7 B0 B mMOVW 8s #7, CAA CONTROL) > 1841 | 
a ae bx 
000000006 09 1 FB cb CALLS #1, ADASDBGEXT : 
000000006 Q Q FB CF CALLS #0. LIBSSIGNAL : 
06 a7? € 06 40$: BLBS 4(ADA_CONTROL), 418 ; 
000000006 00 00 Fe DA CALLS #0 LTBSSIGNAL : 
4 1A OA? E1 41$: BL BC 26(ADA_CONTROL), 42% > 1842. 
pty deat gTeatau 7 
2c 59 6 E £9 42$: BBC #6, QUALIFIERS, 46$ + 1847 
67 g0 £ a7, CADA_ CONTROL) > 1849 
sas + OD 00SF Bee? ROK CONTROL 
000000006 Q 1 FB F CALLS Fi ie ASDBGEXT : 
9 f FC BLBS RO, 438 ; 
000000006 FB OOOFF CALLS #0, LIBSSIGNAL : 
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07 04 A? €8 43$: BLBS 4(ADA CONTROL), 64$ ; 
000000006 9 0 F A CALLS 40, fe SIGNAL 3 

03 1A OA 4 144%: 68BS #4, 26(ADA_CONTROL), 46$ + 1850 
009A 1 45$:  BRW 56$ : 

67 04 80 19 46$:  MOVW #4, (ADA_CONTROL) + 1857 
06 A? 04 0031C CLRL 4 (ADA_CORTROL) : 
? 0D 1F PUSHL ADA_CONTROL 3 
000000006 9 1 EB 1 CALLS #1, ADASDBGEXT F 
000000006 9 Fe CALLS #0, LIB$SI : 
ciedumead 04 =A E 478: BLES 4(ADA CONTROL) 48$ : 

2 § 03 Ef D 48S: BC Ay BUALTFIERS 56$ : 1858 

67 F BO 00341 mMOVw #15, (ADA_CONTROL) + 1860 

06 AZ D4 00344 CLRL 4(ADA_CONTR : | 
57 00 00347 PUSHL  ADA_CONTROL ; 
000000006 09 gi FB 49 CALLS #1, ADASDBGEXT : 
000000006 00 80 FR poses Pires 0. LIBSSIGNAL ; 
0D 04 RY £8 0 3A 49$:  BLBS 4 (ADA_CONTROL), 50$ : 
02 4 Ni D 0 35 CPL &(ADAZCONTROL), #2 ; 
000000006 09 09 FB 5 64 CALLS #0, LIBSSIGNAL : 
0 04 a Di : é8 50$: CMBL 4(ADA CONTROL), #2 ; 
OF 000000006 00 05 £6 0 t BBS #5, DBGSRUNFRAME+73, 51$ F 
08 000000006 00 E 0 79 BLBS  DBGSRUNFRAME+72, 51$ F 
05 000000006 Q 4 €1 00380 BBC #4, DBGSRUNFRAME+73, 52$ : 
0 : bo 0 88 51$ MOVL #2. EXC_TYPE ; 
50 01 D0 0 8D 598: MOVL #1, EXC_TYPE ; 
0401 8F 6B 00390 53$:  PUSHR #*M<RO,R10> ; 
000000006 00 oD 0 94 PUSHL DBGSRUNFRAME+56 : 
000000006 0 DD Ht PUSHL DBGSRUNF RAME +64 
A oO 5 A2 54$: PUSHL CALLS_VALUE ; 

01 DD 0 AG PUSHL #1 : 

5c 0 A?sOéD Ag PUSHL 9 (ADA CONTROL? : 

64 A7 DD OO3A PUSHL 100(ADA_CONTROL) 3 

000000006 00 04 FB AC 55$: CALLS #4, DBGSTRACEBACK 3 

6 08 ets Hi ; és: HOVAB gR2), LINK : 1865 

51 59 1 EF OO3BA 578 EXTZvy #0, #1, QUALIFIERS, R1 > 1868 | 
1 CA 0038F BICL2 RO. RI ; 
1 C CMPL) RT. : 
oor f Bau’ af 

28 00 ry 3 00 C cA 58$:  MOVCS #0, (SP), #0, #40, (ADA_CONTROL) ; 1870 
a7? 0c 1 £0 INSV #49, #0, #12, 2(ADA_CONTROL) : 
= 0000v CF 9 68 MOV bacexTSentnt ROUTINE, 32(ADA_CONTROL) : 
A? 7 BA 0030 BICB2 #7, 24(AD OL) ; 

56 08 As E MOVAB 8(R8) + 1875 

66 p e $9$: TSTL (LINKS : 1876 
BNEQ 6 ; 
0. E RET 3 

52 66 DO 003E9 608 MOVL (LINK), NOUN_NODE : 1878 
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1 DEBUG. SRCJDBGTASK.B32; 
67 04 B80 OO3EC MOVW #4, (ADA_CONTROL) : 1881 
04 8h BS boars LAL &<ADACORTROL) 
000000006 9 1 8 fg CALLS #1, ADASDBGEXT : 
E FB BLBS RO. 61 ; 
000000006 9 FB F CALLS #0, LIBSSIGNAL : 
06 a? € 49 61$:  BLBS  4(ADA_CONTROL), 62$ 3 
000000006 8 9 FB 4 CALLS Ag LIBSSIGNAL 3 
72 E1 00410 62$: BBC #3. QUALIFIERS, 70$ : 1882 
67 F 80 414 mOVw #15, (ADA_CONTROL) : 188 
04 A? 04 00417 CLRL 4(ABA_CONTROL) : 
7 0D O41, PUSHL  ADA_CONTROL : 
000000006 00 i FB aie CALLS #1, “ADASDBGEXT : 
000000006 86 9 Fe 0426 CALLS #0. LIBSSIGNAL F 
Op 06 aA? €E 04 D 63$:  BLBS  4(ADA_CONTROL), 648 : 
2 04 A7 01 431 CMPL 4(ADA_CONTROL), #2 3 
07 13 004 3 BEQL 64 : 
000000006 99 0 FB 004 CALLS #0, LIBSSIGNAL ; 
2 04 A? D1 004 : 64$:  CMPL  4(ADA_CONTROL), #2 ; 
31 18 044 BNEG  68$ : 
OF 000000006 00 05 EO 00444 BBS #5, DBGSRUNFRAME+73, 65$ ; 
08 000000006 00 €8 O44 BLBS § DBGSRUNFRAME+72 : 
05 000000006 00 04 €1 0045 BBC #4, DBGSRUNFRAME+73, 668 ; 
50 0@ DO 00458 65$ MOVL We YP : 
11 0045 BRB 678 : 
50 1 00 00460 66$ MOV #1, EXC_TYPE : 
p40) F BB 00463 67$ PUSHR #*M<RO,R1 3 
000000006 00 DoD 00467 - PUSHL DBGSRUNFRAME+56 : 
000000006 90 DD O46 DBGSRUNF RAME +64 : 
a DD 047 68$: CALLS_VALUE F 
01 DD 0047 #1 3 
5c AZ «OD 00479 93(ADA CONTROL) : 
64 A? DD 0047C¢ 100(ADA_CONTROL) : 
000000006 00 04 FB 0047F 98: #4, DBGSTRACEBACK ; 
56 08 Ag 3 0486 708: ace » LINK : 1885 
5 048A 9 + 1876 
51 59 01 2 EF 0048 71$: ae, #1, QUALIFIERS, R1 : 1890 
51 1 D2 0049 R1, R1 ; 
50 1 CA 0049 Ri, RO ; 
52 59 or EF 00498 #0. #1, QUALIFIERS, R2 ; 
D2 00490 R2, R 5 
3 CA 4A0 Ro. R : 
01 BF Boca RO! : 
01 i ons 72$ ; 
8 00 6£ 09 se AAC 728: #0, (SP), #0, #40, (ADA_CONTROL) > 1892 
02 A? 0c 00 iH FO 4Be #49 #0 #12, 2(ADA_CONTROL) ; 
20 A o000v CF 3 4B DaGEXT PRINT_ROUTINE, 32(ADA_CONTROL) ; 
18 «A? 7 BA 0048 #7, 24(ADA_CONTROL) : 
67 4 BO 004C #4. (ADA_CONTROL) > 1893 
04 ar D4 bac 4(ADA_CORTROL) ; 
3 DD 004¢ ADA_CONTROL : 
000000006 00 1 FB OO4CA #1, “ADASDBGEXT : 


7 
GTASK t $ep-1984 43:4 AX-11 Bliss-32 V4.0-74 P 
v04-0 DBGSNEXECUTE _SHOW_TASK 12-8 08- 1 3be 05243585 DEBUG. ERCTOBGTALE D350 _— (3S 


7 ; E8 00401 BLBS RO, 738 ; 
000000006 : EB 404 CALLS #0, LIBSSIGNAL : 
04 A? €8 00408 73$: LBS 4 (ADA CONTROL), 74$ : 
000000006 9 9 FB 4OF CALLS 4&0, LIBSSIGNAL ; 
2 E1 004E6 74%: BBC #3. QUALIFIERS, 82$ + 1894 

67 F BO OO4EA mMOVW #15, (ADA_CONTROL) + 1896 
04 A? D4 OO4ED CLRL  4(ABA_CONTROL) : 
57 DD O04F PUSHL ADA, CONTROL : 
000000006 00 Qi Fe 4F CALLS #1,7 ADASDBGEXT : 
0 E8 O04F BLBS 0, 75$ : 
000000006 00 00 FB OO4F CALLS #0. LIBSSIGNAL ; 
op 04 A7 75$:  BLBS 4 (ADA_CONTROL), 768 : 
4 a? b 0 CHPL 4(ADAZCONTROL), # F 
000000006 09 09 FB 9300 CALLS LIBS$SIGNAL ; 
0 04 A? D1 00514 76S: CMPL echoh CONTROL), #2 F 
1 12 00518 BNEQ 80s : 
OF 000000006 00 5 E O51, BBS DBGSRUNE RAME+73 77$ ; 
08 000000006 00 €E8 00 é BLBS DBESR RUNF RAM 7$ : 
05 000000006 00 4 €1 005 BBC #4, DBGSR ar Rand oo. 78$ : 
0 : D0 005 1 77$ MOVL EXC_TYPE : 
11 v9 BRB : 
50 1 00 005 6 78$ MOVL afte TYPE ; 
0401 8F BB 00539 79$ PUSHR <RO, : 
000000006 00 op 005 PUSHL DBESRUMF RANE +56 ; 
000000006 00 od 0054 PUSHL DBGSRUNFRAME +64 : 
A 11 00549 BRB : 
A DD 00548 80$: — PUSHL CALLS _VALUE : 
01 DD 00540 PUSHL ; 
SC = AZsODDs«0054F PUSHL $3(ADA CONTROL) ; 

64 A7 OD O28 PUSHL O(ADA_CONTROL) 3 

000000006 00 04 FB 00555 81$: CALLS #4, DBGSTRACEBACK : 

04 0055C 82$: _—RET : 1908 

; Routine Size: 1373 bytes, Routine Base: DBGSCODE + 0015 


; 710 1909 1 
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; rg 1319 1 SSBTTL ‘DBGSNPARSE SET _TASK' 

ha 191 1 GLOBAL ROUTINE OB CSNP ARSE SET_TASK ( INPUT_DESC : REF BLOCK C , BYTE J, 

; ar 1316 ! VERB_NODE : REF DBGSVERB_RODE ) : NOVACUE = 

: ay 1914 1 ! FUNCTION 

; 71 1915 1! te. routine parses the SET TASK command. It accepts a command Line 

; 718 1318 ei string descriptor as input and produces a Verb Node for the parsed 

; 719 191 1! string as output. The Verb Node and its attached Adverb Nodes and 

: 720 1318 1! Noun Nodes, as built by this routine, later serve as input to the 

; g 1 1919 DBGSNEXECUTE_SET_TASK routine which actually executes the command. 

3 7 4 1921 1 ! INPUTS 

; 726 19 § 1! INPUT_DESC = A strin Soccer seter pointing to the input Line being 

; 725 19 1! parsed. The descriptor is assumed to be pointing to the 

3 f $ 13 ¢ : first character after the SET TASK keywords. 

: 456 19 § : 3 VERB_NODE = A pointer to the Verb Node to be built up for the command 
3 198 19 1! being parsed. 

; 750 1928 1! 

; ay 1929 1 ! OUTPUTS 

Bae § 1930 1! INPUT_DESC = The input eornas descriptor is updated to point to the 
75 1931 1! first character after the end of the command. This normally 
3 ree 1338 : means that the input string is exhausted. 

3; 1934 1! VERB_NODE = The passed-in Verb Node is filled in so that it and its 

3; 737 1935 1! attached Adverb and Noun Nodes contain all information picked 
s 738 1938 1! up during the parse of the SET TASK command. 

3; 739 19 1! 

; 740 1938 1 

: 741 1939 BEGIN 

3: 7% 1940 

3; 74 1941 OCAL 

3: 744 1see ADVERB_NODE : REF DBGSADVERB_NODE, 

: 745 194 NOUN_NODE : REF DBGSNOUN_NODE, 

3; 746 1944 LINK ' Link field to next adverb or noun node. 
> 747 1945 PRIORITY; i Temporary for storing priority. 
: Wg 1909 

; 750 1948 ! The field VERB_NODE CDOBGSB_VERB_COMPOSITE) has already been set = SET_TASK 
3 eh 1303 ! to indicate that the command was SET TASK in routine DBGSNPARSE_SET. 

; Fag 1951 Link = verb_node Cdbg$l_verb_adverb_ptr]; 

3; 7546 1336 

. Fee 195 : 

; P26 W320 : Scan for command qualifiers. If found, construct adverb nodes. 

; 758 1328 WHILE Sogbnamatch (.input_desc, dbg$cs_slash, 1) DO 

; 759 133 BEG! 

; 760 19 3 ! 

3; 761 195 ' Case on the qualifier. 

3 768 1960 : 

s 76 1961 SELECTONE TRUE OF 

; 7646 1206 SET 

; 765 196 ' 

3 ro8 ioe SET TASK /ACTIVE. Construct an Adverb Node and Link it in. 

: 768 1966 € DBGSNMATCH( .INPUT_DESC, DBGSCS_ACTIVE, 2) J: 


<2 


Seen te Se Se ee Ge Ge ee 


-——————————— 
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DBGT 16-Sep-1984 AX-11 Bliss-32 V4.0-74 P 4 
ve wO80 DBGSNPARSE_SET_TASK 14-Sep pnt 38e 96: $3; $3 DEBUG. SRC IDBG ate B35 os 3 
: 769 1967 4 BEGIN 
: 163 1968 4 ADVERB_NODE = DBGSGET_TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 
>; 771 196 4 -LINK = .ADVERB_N 
: ak 1970 4 LINK = ADVERB NODE TOBGSL ADVERB 
i 008 1378 & ADVERB_NODE COBG$B_ADVERB_LITERAC Task active: 
HO pies 
: r 1Oe? SET TASK /ALL. Construct an Adverb Node and Link it in. 
; 179 1377 : c DBGSNMATCH( .INPUT_DESC, DBGSCS_ALL, 2 ) J: 
: 781 1338 4 ADVERB NODE = DBGSGET_TEMPMEM (DBGSK_ADVERB_NODE SIZE); 
: 7 ‘ 1980 4 LINK = .ADVE ERB at 
a. 1981 4 Cink = ADVERB AN ODE FéBGSL _ADVERB INK; 
; ? : 198¢ 4 ADVERB_ NODE COBG$B_ADVERB-LITERAC) = TASK_ALL; 
a oui 
3 re 1358 SET TASK /VISIBLE. Construct an Adverb Node and Link it in. 
3 290 1988 ; ' DBGSNMATCH( . .INPUT_DESC, DBGSCS_VISIBLE, 1) J: 
: 79 1990 4 ADVERB_NODE = DBGSGET_TEMPMEM (DBGSK_ADVERB_NODE SIZE); 
; 79 1991 4 wLINK = .ADV D 
: 794 1998 4 LINK = ADVERB AN Ode COBGSL ADVERB LINK 
; 795 1998 4 ADVERB _NODE BBGSB_ADVERB-LITERAC) = tisk VISIBLE; 
Be Re pes 
: 44 1997 SET TASK /PRIORITY=(n). Construct an Adverb Node and Link it in. 
; Ht 1999 ; c DBGSNMATCH( .INPUT_DESC, DBGSCS_PRIORITY, 1) ): 
; 508 001 4 ADVERB NODE | : abbcsce _TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 
; 805 608 4 LINK = ABVERE RODE bacse _ADVERB INK}; 
; a0 004 4 ADVERB_NODE COBGSB_ADVERB-LITERAC) = TASK_PRIORITY; 
; 808 4 IF DBGSNMATCH( .INPUT_DESC, DBGSCS_COLON 
3 809 007 4 THEN? DBGSNMATCH( .INPUT_DESC, DBGSCS OF AUAL. ) 
; i 009 ? Ee BosenmATcHe - INPUT_DESC, PO A ce, 1) 
; 18 iy 3 BEGIN Z(CFIX THIS CAN'T HAVE MULTIPLE PRIO 
: 815 13 6 BEGIN 
: 1 14 6 BE CENSAVE DECIMAL_INTEGER( 
: BI 16 6 . INPUT _DESC, ' read input value 
; 18 16 6 PRIORITY); 
: 81 ‘ If .PRIORITY GTRU 31 ! £((need priority Limit -tbs))% 
; 1 i$ 6 IGNAL (DBG$ gi Rance ); ' SCN ED A BETTER MESSAGE -tbs))% 
; § 9 ; (apy RB_NODE COBGSL_ADVERB_VALUEJ) <.PRIORITY, 1, ' set corresponding 
; B24 ; WHILE DBGSNMATCH( . INPUT DESC, dbgs g5_conma, 
; 825 0 5 IF NOT DBGSNMATCH( INPUT DESC, dbg$cS_right_ Saree. 1) 


THEN 
SIGNAL (dbg$_UNMTCHPARN) ; ! Unmatched left parenthesis found. 


wn 


ELSE 
oral 
DBGSNSAVE 


vot-060 DBGSNPARSE_SE7_TASK 1b-s¢ ~35p71982 98:99:83 — Hokeuc. Sacdoagtade ose, Page 663 : 


DECIMAL_INTEGER( 
.INPUT_DESC, ! read input value 
PRIORITY); 
IF teen GTRU 31 ! 2C(need a Limit -tbs))% 
NAL (ones BiTR ' Z((NEED A berTER MESSAGE -tbs))% 
CapveRs NODE COBGSL_ ROVERS. HaLuEI) <.PRIORITY, 1, 0> ! set corresponding 


ELSE 
SIGNAL (DBG$_NEEDMORE); 


END; 


Fe 
OOOCCoCCcooo 


= 


to 


DBGSNMATCH( .INPUT_DESC, DBGSCS_RESTORE, 3 ) J: 
ADVERB rap ERE NODE TEMPMEM (DBGSK_ADVERB_NODE SIZE); 


$L_ADVERB_LINK); 
cj 


t VERB NOD 686 
ADVERB NODE mats _ADVERB-LITERAC) = TASK_RESTORE; 


i SET TASK /RELEASE or SET TASK /NOHOLD. Construct an Adverb Node and Link it in. 


f DBGSNMATCH( .INPUT_DESC, DBGSCS_RELEASE, 3), 
DBGSNMATCH( .INPUT_DESC, DBG$CS"NOHOLD, "32: 


BEGIN 

ADVERB. NODE = ast TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 
LINK = ADVE VERB NO §BGSL_ADVERB LINK 
ADVERB. NODE BBGs6. ADVERB-LITERAC 


™ 
NAA WN 0 OD NOME WN SO ODNOUE WN" OOONO 


PPA AAATDNE SEPP EE 


DEN 0 ODNO NEW 0 OD VNOA VEN OC OONS NEU (OOODNOUE 


—-C0O@ 


pte ty Av ty ty ty te ty ty SEPEREERE 


o 


= TASK_RELEASE; 


SET TASK /HOLD. Construct an Adverb Node and Link it in. 
a °F" ma -INPUT_DESC, DBGSCS_HOLD, 1) ): 
ADVERB =NORE . Bes b _TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 


Soo wo a eure 


a 


Fe ee ew oe or or or i ee re ar ee oe er er or ke Pe ee ee 
a 


0 

71 .LINK = 

re LINK = ABVERE NODE bacst _ADVERB_LINK); 

a ADVERB. NODE COBGSB_ADVERB-LITERAC) = TASK_HOLD; 

75 5 

6 ' 

4 SET TASK /TERMINATE. Construct an Adverb Node and Link it in. 
7 { DBGSNMATCH( .INPUT_DESC, DBGSCS_TERMINATE, 1) ): 

80 BEGIN 


SET TASK /RESTORE. Construct an Adverb Node and Link it in. 


GTASK tose 1 74 AX-11 Bliss-32 V4.0-7 Pa 6 
yOe-000 DBGSNPARSE_SET_TASK 16-50-19 95:93:33 HOEoug. BhcSbeatakeosces ve 36 
3 1 4 ADVERB = NODE = DBGSGET_TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 
¢ hae ADVE ERB. NO 
5 4 NK = ADVERB AN Ove bacse ADVERB. LINKI; 
4 ADVERB, NODE CBBG$B_ADVERB-LITERAC) = TASK_TERMINATE; 
; ; 
$s 8 Any other condition is an error. 
% 0 { OTHERWISE ): 
+ 09 DBGSSYNTAX ERROR(. INPUT_DESC); 
95 TES; 
3 END; ! of WHILE /qualifier 
99 LINK = 0; ! End of adverb node chain. 
901 If NOT DBGSNMATCH( .INPUT_DESC, DBGSCS_CR, 1 ) ! If more input exists then 
308 THEN i try to parse a task list. 
90 BEGIN 
oRe sm = VERB_NODE (DBGSL_VERB_OBJECT_PTRI; 
1 
309 ' Parse tasks in a task List and build noun nodes and value 
aoe ; descriptors until end of List or an error is encountered. 


BEGIN 
NOUN NODE = DBGSGET_ TEMPMEM (DBGSK_NOUN_NODE_SIZE); ! %( (NEED LONG NOUN ?-tbs))% 


Ll NO 
CINK = NOUN "NODE EOBGSL_NOUN_LINK]; 
DBGSNPARSE_EXPRESSION ( 


eee ed oe 2 = so 


WN —0 0O@wO VF WN "OOOO u fun oO 


' rest of command 
DBG$GB_R Ixtocse RADIX INPUT), i default input radix 
Be COBGSL WOON. ALOE), i where to store ptr to value desc 
TOKERSK_TERM_COMMA ' task terminator token 
! MESSAGE _VECT); Z( (REMOVE MESSAGE VEC FROM ROUTINE -tbs))2% 


END 
WHILE DBGSNMATCH( .INPUT_DESC, DBGSCS_COMMA, 1 ); 
IF NOT DBGSNMATCH( .INPUT_DESC, DBGSCS_CR, 1) ! If more input exists then 


HEN ! we have an error. 
1. DBGSSYNTAX_ERROR(.INPUT_DESC); ! Signal the error. 
RETURN 0; ! £((0?-tbs))% 


Se Se Se Se Se Se Se Ge Be Se Be Se Se St Se Se Se Ge Se Fe Ge Se Se Se Se Se Se Be Se Se Ge Se Ge Be Se Se Se Be Se Se Se Ge Se Se Se Ge Se Se Ge Se Ge Ge 


oO 
O05 
rx 
PRI IRI IR BB BBB BE BBB EB MMM HIIPPRINIPIPIPI WINN & BE 


kt a et et a ts a a so “2s sa a 


COOCCSCO 
MBA INIINININIUNNIN BS OSS Ee BE S2222 


DOODODODODODOVOO ODDO DODOODOODONODOO0O 


END; ! end of DBGSNPARSE_SET_TASK 
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_n—--OO 


DBGSNPARSE_SET_TASK 14-Sep- DEBUG. SRC JDBGTASK .B32; 
OFFC 00000 .ENTRY DBGSNPARSE_SET_TASK, Save R2,R3,R4,R5,R6,- = 1911 
BF ORe RO RTORTI 
a 6 02 MOVAB DBGSSYNTAX ERROR. R11 : 
A 6 MOVAB DBGSNSAVE BECIMAL_INTEGER, R10 : 
6 19 MOVAB L1B$S1GNA R : 
* 2 : ROvAR PoGseET STEARMER, RB 
6 G6 60 § MOV DBGSNMATCH, R6 : 
54 o it - f ADCS #4. VERB_NODE. LINK : 1951 
§ 04 aC DO MOVL NPuT_DESC, RS + 1956 
01 0D 1$: PUSHL : 
06 A? OF A PUSHAB DBGSCS_SLASH : 
DD D PUSHL : 
66 F F CALLS #3, DBGSNMATCH : 
5 4 BLBS RO, 2$ : 
018 BRW 268 ; 
D 00048 28: PUSHL @ + 1966 
FF70 g F O004A PUSHAB DBGSCS_ACTIVE ; 
; DD 4 PUSHL R 3 
66 g F 5 CALLS #3, DBGSNMATCH : 
01 0 oO : CMPL RO, #1 : 
14 12 6 BNEQ = 3 ; 
3 pd 0005 PUSHL @ + 1968 
ra. a SA CALLS #1, DBGSGET_TEMPMEM : 
52 D 50 MOVL RO, ADVERB_ROD : 
64 6 MOVL ADVERB_NODE, (LINK) ; 196 
54 08 A 6 MOVAB &8(R2), “LINK : 197 
62 01 9 MOVE #1, (ADVERB_NODE) : 197 
¢ 11 0006A BRB 1$ + 196 
D 906¢ 3$: PUSHL #2 : 197 
FF77 : F PUSHAB DBGSCS_ALL : 
DD PUSHL R : 
66 g FB CALLS #3, DBGSNMATCH : 
01 077 CMPL) RO, #1 : | 
14 12 OOO7A BNEG 4 ; | 
3 DD C PUSHL @ : 1979 
$8 1 F F CALLS #1, DBGSGET_TEMPMEM ; | 
D MOVL RO, ADVERB_RODE : 
4 $ MOVL ADVERB_NODE, (LINK) : 1980 
4 08 A 7 MOVAB 8(R2), “LINK : 1981 | 
62 0 MOVB He. (ADVERB _NODE) : 1982 
As 1 BRB 1 + 196 
01 oO 4$ PUSHL # : 1988 
CF OA?OSF PUSH, G$CS_VISIBLE ; 
DD PUSH ; 
66 FB CALLS #3, DBGSNMATCH ; 
1 009A (MPL. #1 ; 
4 12 00090 BNEQ : 
; 0D F puSHe £ : 1990 
68 F Al CALLS #1, DBGSGET_TEMPMEM ; 
D AG MOVL RO, ADVERB_RODE ; 
4 A? MOVL ADNERE_NODE. (LINK) : 1991 
4 08 A DAA MOVAB 8(R2), “LINK ; 1998 
62 p MOVB #13, CADVERB_NODE) ; 199 
5$ BRB 1 : 1961 
1 oD 6$ PUSHL @ : 1 


H 7 

GTASK 16-Sep-1984 02:43: AX-11 Bliss-32 V4.0-746 Pa 8 
Mb 000 DBGSNPARSE_SET_TASK 197808- 1382 96:43:48 YoeBUG. SRC DBGTASK.B32; - (3 

98 A? OF 5 PUSHAB DBGSCS_PRIORITY : 

] PUSH e : 

66 FB OOOBA CALLS #3, DEGSNMATCH : 

BEQL 7 3 

00 BRw gs : 
dd 000C5 78 PUSHL # ; 2001 

$8 F CALLS #1, DBGSGET_TEMPMEM : 

DO QOOCA MOVL RO, ADVERB_RODE : 

6 MOVL ADVERB_NODE, (LINK) : 008 
4 08 A : MOVAB &8(R2), “LINK + 200 
62 0 96 00004 MOVB #7, (ADVERB_NODE) + 2006 

1 po 00007 PUSHL #1 + 2006 
FE A? 9F 00009 PUSHAB DBG$CS_COLON ; 
DD 0000C PUSHL R : 
66 FB CALLS #3, DGSNMATCH : 
0D E BLBS RO. 8S ; 
1 BD DOOES PUSHL #1 + 2007 
04 A? OF PUSHAB DBGSCS_EQUAL F 
dD PUSHL R 3 
66 FB D00EB CALLS #3, DBGSNMATCH : 
64 E BLBC RO, 14$ : 
1 Bp 8$: PUSHL @# + 2009 
FA AZ OF OO0F3 PUSHAB DBGS$CS_LEFT_PAREN : 
dd 3 PUSHL R 3 
66 Fe OF CALLS #3, D GSNMATCH : 
E FB BLBC Esa, 1 : 
4008 er BB OOOFE 9S: PUSHR #*M<R3,SP> + 2015 
6A 2 Fe 1 CALLS #2 DBGSNSAVE_DECIMAL_ INTEGER ; 
1F 3 p 1 CMPL pR{ORITY, #3) : 2017 
0 B 00108 BLEGU 1 : 
00028248 8F DD O010A PUSHL 64424 : 2019 
69 01 FB 0011 CALLS #1, LIBSSIGNAL ; 
00 04 A2 E €2 00113 108: SS PRIORITY, 4(ADVERB_NODE), 118 : 3020 
1 0D 00118 11$: PUSHL # 3 2022. 
0088 8F 8B OO1IA PUSHR #*M<R3,R7> : | 
66 ; FB OOTIE CALLS #3, DRGSNMATCH F | 
DA £8 00121 BLBS =_-aRO, ; 
1 0D 00124 PUSHL @# > 2023 
FC «OA? «OOF 001 $ PUSHAB DBG$CS_RIGHT_PAREN F 
53 oD 001 PUSHL 3 
66 Fe 128 CALLS #3, DBGSNMATCH F 
80 £8 001 : BLBS ; 
00028700 F bp } PUSHL ' 5840 ; 2025 
46008 8F 8B 00139 128:  PUSHR #°M<R3 sP2 + 2030 
6A 2 Fe 1 CALLS #2, DBG NSAVE DECIMAL INTEGER F 
1F f : 14 CMPL = PRIORITY, #31 : 2032 
B 0014 BLEQU ; 
00028248 8F DD 0014 PUSHL #164424 > 2034 
69 1 FB 00148 CALLS #1, LIBSSIGNAL ; 
63 04 A2 ‘ ‘ Fh 13$: BBSS PR ORITY, 4(ADVERB_NODE), 19 : 3003 
00028000 8F DD 00155 148:  PUSHL #164048 : $83 
9 1 Fe B 15$: CALLS a LIBSSIGNAL Piast 
O83 DD 185 16$:  PUSHL 4&3 > 2045 


vOL-000 DBGSNPARSE_SET_TASK 


tS 


ad -0- Page 29 
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AC AT OF 001 PUSHAB GS$CS_RESTORE 
PB if CALLS #3, DBGSNMATCH ; 
é Si EAS fe 
Bie RRS 7 
SPB) eet gamete teen os 
se of 153 Rovt ADVERB_NODE, (LINK) ; a8 
d 08 A 17A MOVAB BR ) aLINK ney : 3086 
17 MOVE , E : 196) 
. ie HY ref i 
AG af BP plas PUSHAB —— ; 
: PB OO1BA CALLS #3, DBGSNMATCH ; 
jE : 
: (GBH fa ie aos 
94 RF oF 197 PUSHAB * 
4 COR EBT seara ! 
- ie ° he BNEG 208 = 
$ DD OOIAG 188: PUSH 3 Ae lt 
1 FB OO1AG CALLS #1, DBGSGE ee, 
08 O1aC MOVE. ADV RB_NODE. (LINK) ; set 
s ek 35 0185 move He LAD VERS NODE) : 2062 
- eB 1 166 19$: BRB 384 ’ t 20e8. 
$1 DD 00188 208: PUSH AT gta ; 
BF AT OF OOIBA PUSHAB ay cS_ : 
bb 03 FB O1Br CALLS #3, DEGSNMATCH ; 
” 14 f Dies BNEG 2 § _— 
1¢ ; ; | 
i PB $169 CALLS fi, DBGSGET TEMPHE Boe 
$? ; of tai MOVE ADVERB. OE, (LINK) ; ae 
: oh 105 move” A (ADVERB. NODE) : $07 
" i at 33§ PUSHL 338 2079 
cS AY OF tt " PUSHAB GSCS_TERMINATE ; 
; PB OE CALLS #3, DAGSNMATCH ; 
$f F OOtE CHL RO, po 
: | a | 
4 Pm 
Pay at e-waste e 
° ; OFS MOVE ADVERB_NODE. (LINK) 3088 
: tH nove 5 RB_NODE) ; 
83 ” Of 96 DIF MOVE #12, tadVERB_ 


——-—— 


! 
GTASK rm 74 AX-11 Bliss-3 Pa 
¥OL-000 DBGSNPARSE_SET_TASK ~$een13RS 98:93:83 Haat Shi sseee ate Bs5e4 ve 30 
11 QO1FC 23%: BRB 4 3 1961 
; 0 f $i: CALLS : $38! 
68 : #1, DBGSSYNTAX_ERROR : | 
FE ¢ 3 : : 1936 
6 D4 és: CLRL (LINK) : 
gp PUSHL 3 
02 A? OF A PUSHAB DBGS$CS_CR : 
DD PUSHL R : 
6 F F CALLS #3, DBGSNMATCH : 
4 E 2 BLBS RO. : 
54 08 Ac ¢ 1 ADDL3 #8, VERB_NODE, LINK + 2102) 
4 OD 1A 278: PUSH ’ 3 el 
68 , 1¢ CALLS #1, DBGSGET_TEMPMEM : | 
D 1F MOVL 0; N_NOBE : 
4 p é MOVL NOUN NODE. (LINK) t 2110) 
4 08 Ao 9E V Binet, > 2lit. 
dD 9 PUSHL + 2116 
D B PUSHL ; | 
7E 000000006 m Dd Boy ZBL D 86368 RADIX, -(SP) ; 
000000006 00 4 FB CALLS a, DBGSNPARSE_EXPRESSION : acsel 
0088 F BB : PUSHR a-mcR : | 
Ab : FB 43 CALLS #3, r“DRgSNMATCH : 
D1 E 46 BLBS ; 
01 DD 0024 PUSHL if + 2126 
02 AZ? 9F 00248 PUSHAB DBGS$CS_CR ; 
33 DD 4 PUSHL R ; 
ry. : F 5 CALLS #3, DBGSNMATCH : 
05 g E 5 LBS » 288 : | 
53 DD 36 PUSHL R > 2126, 
68 01 FB 0025 CALLS #1, DBGSSYNTAX_ERROR : | 
04 00258 28%: RET : 2132) 


; Routine Size: 604 bytes, Routine Base: DBGSCODE + 0572 


; 935 2133 1 


K 7 
DBGSNPARSE_SHOW_TASK We-Sep-tobe 13:17:82 — EdeeuG.SmcSbactasccese;7 = 88 GB} 
SBTTL *DBGSNPARSE SHOW. TAS 


ASK* 
ROUTINE DBGSNPARSE SHOW TASK ( 
VERB_NODE : REF DBGSVERB_NODE ) : 


i FUNCTION 
; soee Feunvas parses the SHOW TASK command. It accepts a command Line 


INPUT_DESC : REF BLOCK C , BYTE J, 
NOVALOE = 


' 

! 
94 : string descriptor as input and produces a Verb Node for the parsed 
944 ‘ toby A output. The ort Node and its attached Adverb Nodes and 
94 ! Noun Nodes, as built by th H routine, later serve as input to the 
8 DBGSNEXECUTE_SHOW_TASK routine which actually executes the command. 
94 i INPUTS 
94 : INPUT_DESC = A string descriptor pointing to the input Line being 
950 ! parsed. The descriptor is assumed to be pointing to the 
82) first character after the SHOW TASK keywords. 
988 i VERB_NODE = A pointer to the Verb Node to be built up for the command 
gee : being parsed. 
996 i OUTPUTS 
95 ; INPUT_DESC = The input serene descriptor is updated to poirt to the 
958 ! first character after the end of the command. This normally 
328 means that the input string is exhausted. 
961 : VERB_NODE = The passed-in Verb Node is filled in so that it and its 
306 ! attached Adverb and Noun Nodes contain all information picked 
+t, : up during the parse of the SHOW TASK command. 
368 BEGIN 
sf 
96 LOCAL 
969 ADVERB_NODE : REF DBGSADVERB_NODE, 

NOUN_NODE : REF DBGSNOUN_NODE, 


LIN ' Link field to next adverb or noun node. 
PRIORITY; ! Temporary for storing priority. 


! The field VERB_NODE CDBGSB_VERB_COMPOSITE] has already been set = SHOW_TASK 
! to indicate that the command was SHOW TASK in routine DBGSNPARSE_ SHOW. 
Link = verb_node Cdbg$i_verb_adverb_ptrJ; 


' 
Scan for command qualifiers. If found, construct adverb nodes. 


WHILE dbgSnmatch (,input_desc, dbg$cs_slash, 1) DO 
BEG! 


Case on the qualifier. 
SELECTONE TRUE OF 
Set 


SANS 
LSSSELEARAN ALS SSNS ASA ASS 


SHOW TASK /ALL. Construct an Adverb Node and Link it in. 
{ DBGSNMATCH( .INPUT_DESC, DBGSCS_ALL, 1) ): 


me a a kk at a a os ot = = 2 SS SS 2 2s 2 SS SS SS SS Vs 2 Ss SS SS SS Ss YS YS LS SS 1 


SSSeesesesss SNS NNSA PAA AA AAA AMIN BB EEE EEE 


POPPA DAAPIPIPIPIPIPININPIPININIAIPIPIIII IIIA a a a kt td tt 
. . . . . . . * . . . - 


DODOODOOODOOOVOVOOOVOVOOOVONO 
$333 
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191 4 BEGIN 
33¢ 138 ADVERB_NODE = DBGSGET _TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 
396 1 “LINK & : sADVERB NOD 
1 4 LINK = ADVERB NO bacse LADVERB_LINK); 
i ADVERB. NODE mat WADVERB-LITERAC) = TASK_ALL; 
oO 
1 SHOW TASK /CALLS C =n J. Construct an Adverb Node and Link it in. Pickup the 


call depth to display. Assume -1 (very large number) if not given explicitly. 
a 7 ate - INPUT DESC, DBGSCS_CALLS, 1 ) J: 
ADVERB = NODE VERB NODE TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 


wLINK = 
LINK = ABVER 6BGSL_ADVERB_LINK); 


ADVERB_NODE Ponce  ADVERB-LITERAC) = TASK_CALLS; 


IF DBGSNMATCH( .INPUT_DESC, DBGSCS_COLON 
OR DBGSNMATCH( .IRPUT_DESC, DBGSCS OFaUAL. 1 


N 
DBGSNSAVE _DECIMAL_INTEGER( 
. INPUT_DESC, 
ADVERB_NODE COBGSL_ADVERB_VALUE)) 


ELSE 
em ADVERB_NODE CDBGSL_ADVERB_VALUEJ = -1; 


SeSSSSRs 


S 
© 


Sue RRO IS SESE 


did user give a call depth? 


this routine checks for errors 
read input value 
store in adverb node 


— oe ~~ 


Sa et 


use default value 


ee ee ee a ny 


i SHOW TASK /DEADLOCK. Construct an Adverb Node and Link it in. 
‘ son 771 Naat - INPUT_DESC, DBGSCS_DEADLOCK, 1 ) J: 
ADVERB -NObE = DBGSGET _TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 

NK = .ADVE ‘©. pnge 


Ll 
CINK = ADVE ERB AN Boe Coase _ADVERB 
ADVERB NODE COBG$B_ADVERB-LITERAC . og Om DEADLOCK; 


} 


la 


WN —OOONO VUE W "OVO NOUS WO 
DONA NE WN OOO VNOAUS WN O 0 


SHOW TASK /FULL. Construct an Adverb Node and Link it in. 
aoepetens -INPUT_DESC, DBGSCS_FULL, 1 ) ): 
ADVERB = NODE = DBGSGET _TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 


LINK vE to 
ink = ADVERB NODE COBGSL _ADVERB LINK 
Ci = TASK_FULL: 


we NODE Posete ~ADVERB-LITERA 


COOOCOCOCOOOCOOCOOCOOoOoOoOOOOCOOOCOOCOCOOOO 
a 


RSGSSSy 


ewnr—o 


SHOW TASK /HOLD. Construct an Adverb Node and Link it in, 
DBGSNMATCH( .INPUT_DESC, DBGSCS_HOLD, 1) J: 


ADVERB_NODE = DBGSGET_TEMPMEM (DBGSK_ADVERB_NODE SIZE); 
-LINK = ,ADVERB_NODE ;~ 


a 


FERRELL 


ae 
COCONOU 
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"7? 
TASK 16-Sep-1984 02:43: AX-11 Bligs-32 v4.0-76 
vO0~000 DBGSNPARSE._ SHOW. TASK 1e-8b-13be $3:17:45 — EOteuG. SRcSeecrasn ose, Page 33 
48 4 LINK = ADVERB_NODE CDBGSL_ADVERB_LINK); | 
ADVERB _NODE Popceh ADVERE@C 1 TERAC = TASK_HOLD; 


| SHOW TASK /PRIORITY=(n). Construct an Adverb Node and Link it in. 


c DBGSNMATCH( - INPUT_DESC, DBGSCS_PRIORITY, 1) J: 
ADVERB_NODE = DBGSGET_TEMPREM (DBGSK_ADVERB_NODE_ SIZE); 


WN —OOONOUS wt 


«LINK = .ADVERB_NODE; 
LINK = ADVERB NODE COBGSL_ADVERB INK}; 
ADVERB_NODE COBGS8_ADVERB-LITERAC) = TASK_PRIORITY; 


IF DBGSNMATCH( .INPUT DESC 


DBGSCS_COLON 
as DBGSNMATCH( . INPUT 


1) 
bESC, DBGSCS_EGUAL, 1 ) 


WN —COOONAOUSE 


6 
6 
6 
rt 
8 65 IF DBGSNMATCH( .INPUT_DESC, dbg$cs_left_paren, 1 ) 
9 $8 THEN 
070 6 BEGIN 
071 68 dO 
O76 69 BEGIN 
07 70 DBGSNSAVE _DECIMAL_INTEGER( 
074 71 . INPUT_DESC, ! read input value 
075 7 PRIORITY); 
076 a IF PRIORITY 6tTRU 31 ! £¢(need priority Limit -tbs))% 
078 . 75 SIGNAL (DBG$_BITRANGE ); ' ZC(NEED A BETTER MESSAGE -tbs))% 
343 ee DBGSL_ADVERB_ VALUE J) <.PRIORITY, 1, 0> = 1; ! set corresponding 
081 re WHILE DBGSNMATCH( .INPUT_DESC, dbg$cs_comma, 1 ); 
Oe 9 LF NOT DBGSNMATCH( .INPUT_DESC, dbg$cS_right_paren, 1 ) 
084 81 SIGNAL (dbg$_UNMTCHPARN); ! Unmatched left parenthesis found. 
Oba HY ecsee 
OB 84 BEGIN 
088 85 DBGSNSAVE_DECIMAL_INTEGER( 
089 a6 . INPUT_DESC, ! read input value 
PRIORITY); 
a8 IF .PRIORITY GTRU 31 ' £20(need a Limit -tbs))% 
90 
91 


SIGNAL (DBGS$_BITRANGE ); ' Z((NEED A BETTER MESSAGE -tbs))% 
(ADVERB_NODE COBGSL_ADVERB_VALUE)) <.PRIORITY, 1, 0> = 1; ' set corresponding 
ELSE 

SIGNAL (DBGS_NEEDMORE) ; 


SSS3SFESE3 


' 
i SHOW TASK /STATE=(x). Construct an Adverb Node and Link it in, 
{ DBGSNMATCH( .INPUT_DESC, DBGSCS_STATE, 5 ) ): 


N 
ADVERB_NODE = PBGSGET_TEMPMEM (DBGSK_ADVERB_NODE_SIZE); 
LINK = .ADVERB_NODE; 
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Nn 7 
ASK 16-Sep-1984 02:43:4 AX-11 Bliss-3 
yOL~000 DBGSNPARSE_SHOW_TASK 12-808=138¢ 95:43:83 DEBUG. SRC IDBG 
4 LINK = ADVERB NODE CDBGSL_ADVERB_LINK]; 
ADVERB_NODE COBGSB_ADVERB-LITERAC) = TASK_STATE; 


IF DBGSNMATCH( .INPUT DESC, DBGSCS_COLON, 1 ) 
OR DBGSNMATCH( .IRPUT_DESC, DBGSCS_EGUAL, 1 ) 


HEN 
it SOSA EES - INPUT_DESC, dbg$cs_left_paren, 1 ) 
BEGIN 


V4.0-74 P a 
fase :830; | Soap B 


BEGIN 
SELEC TONE TRUE OF 
Z((THIS WILL OVERWRITE ADVERB VALUE wit} THE MOST RECENT STATE OF THE LIST == myst BE FIXED -tbs))% 
DBGSNMATCH( .INPUT DESC, DBGSCS_RUNNING, 1) J: 
ADVERB_NODE COBGSL_ADVERB_VALOE] = DBGEXTSK_STATE_RUNNING; 


C DBGSNMATCH( .INPUT_DESC, DBGSCS READY, 1) 2: 
ADVERB_NODE COBGSL_ADVERB_VALOE) = DBGEXTSK_STATE_READY; 


C DBGSNMATCH( .INPUT DESC, DBGSCS pees f 1) 4): 
ADVERB_NODE COBGSL_ADVERB_VALOE] = DBGEXTSK_STATE_SUSPENDED; 


DBGSNMATCH( . INPUT DESC, DBGSCS ag Hd 1) J: 
ADVERB_NODE COBGSL_ADVERB_VALOE) = DBGEXTSK_STATE_TERMINATED; 


C 
: 
} Any other condition is an error. 
C 


C OTHERWISE }: 
DBGSSYNTAX_ERROR(. INPUT_DESC); 


WN O OONAVE WN" OOONOUE WOO 


WAI WAI AIP OROPORUPUNUPUNUTUR) 2 IO 


=O OO ONE AN 9 OD NA NE WN 9 OD NOANE WN OO ODNAUES UN S OVODONANE WH "OOOO 


TES 


END 
WHILE DBGSNMATCH( .INPUT_DESC, dbg$cs_comma, 1 ); 
IF NOT DBGSNMATCH( -INPUT_DESC, dbg$cS_right_paren, 1 ) 


N 
SIGNAL (dbg$_UNMTCHPARN) ; ! Unmatched left parenthesis found. 
ELS 


AAAI ANNA NINIAINI WI WIWINAIWIt 


Pe at at et ek dh ab od eh ah a 


E 
SELECTONE TRUE OF 
SET 
C DBGSNMATCH( .INPUT DESC, DBGSCS_RUNNING, 1) J: 
ADVERB_NODE COBGSL_ADVERB_VALOE) = DBGEXT$K_STATE_RUNNING; 


C DBGSNMATCH( INPUT DESC. DBGSCS READY, 1) 2: 
ADVERB_NODE CDBGSL_ADVERB_VALOE) = O8GEXTSK_STATE_READY; 


C DBGSNMATCH( . INPUT DESC, DBGSCS sysreNe ee 1) 3: 
ADVERB_NODE COBGSL_ADVERB_VALOE] = DBGEXTSK_STATE_SUSPENDED; 


DBGSNMATCH( .INPUT_DESC, DBGSCS TERMINATED, 1 ) J: 
ADVERB_NODE COBGSL_ADVERB_VALOE) = DBGEXfSK_STATE_TERMINATED; 


Any other condition is an error. 
OTHERWISE J: 
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+ 
‘ Parse tasks in a task List and build noun nodes and vaiue 
descriptors until end of List or an error is encountered. 


BEGIN 

NOUN _NODE = DBGSGET_TEMPMEM (DBGSK_NOUN_NODE_SIZE); ! %((NEED LONG NOUN ?-tbs))% 

~LINR = .NOUN NODE 5 

LINK = NOUN_NODE [O8G$L_NOUN_LINK); 

DBGSNPARSE EXPRESSION ( 
: DBG$GB RADI xCpacse RADIX_INPUT), 
NOUN_NOBE [OBG$L_NOON_VALOE), ' 
TOKERSK_TERM_COMMA ); i 


1 ,MESSAGE_VECT); 


rest of command 

default input radix 

where to store ptr to value desc 
task terminator token 


Z( (REMOVE MESSAGE VEC FROM ROUTINE -tbs))% 


8 
DBGTASK 18.58 -1984 245:4 AxX-11 Bliss-32 V4.0-74 
ype 080 DBGSNPARSE _SHOW_TASK 12-8 08- 1 3be 95:43:49 DEBUG. SRC IDBGTASK B32; 
: 1163 $¢ : DBGSSYNTAX_ERROR(.INPUT_DESC); 
: 1109 64 4 TES 
: 1188 ee ELSE GNAL (DBGS.NEEDMORE) 
AR Bg en agen 
iN 3 | 
; Mee 4 } SHOW TASK /STATISTICS. Construct an Adverb Node and Link it in. 
3 1178 78 i DBGSNMATCH( .INPUT_DESC, DBGSCS_STATISTICS, 5 ) J: 
: 1178 75 4 ADVERB_NODE = DBGSGET_TEMPMEM (DBGS$K_ADVERB_NODE SIZE); 
3 1179 6 4 -LINK = .ADVERB_NODE; 
: 1180 77 & LINK = ADVERB NODE COBGSL_ADVERB_LINK]; 
: 1181 78 4 ADVERB_NODE BBG$B_ADVERB_LITERAC = TASK_STATISTICS; 
: 1188 79 END; 
ne 3g ) 
; 1185 38¢ Any other condition is an error. 
: 1187 84 € OTHERWISE 3: 
; 1188 38s DBGSSYNTAX_ERROR(.INPUT_DESC); 
Te an 
; 1198 389 END; ! of WHILE /qualifier 
1195 33¢ eLINK = 0; ! End of adverb node chain. 
> 1197 394 IF NOT DBGSNMATCH( .INPUT_DESC, DBGSCS_CR, 1 ) ! If more input exists then 
; Bb « Sor oe ! try to parse a task List. 
; 1200 399 LINK = VERB_NODE CDBGS$L_VERB_OBJECT_PTR); 
:1 
3 1 
eo | 
3 1 
3 1 4 
3 3 4 
3 3 4 
3; 1 4 
3 7 te 
3 3 4 
3 7 4 
3 1 4 
3 7 4 
3 1 4 
3 4 
: 1 4 
3 3 4 
3 ' 4 
| i 
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tt ne 3 Oo 
BNOARUW=OSRNEN 
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—OO@OneO Wi fwho 
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END 
WHILE DBGSNMATCH( .INPUT_DESC, DBGSCS_COMMA, 1 ); 
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a 
1$-se0 =1984 02:43:4 AX-11 Bliss-32 V4.0-74 Pp 
DBGSNPARSE_SHOW_TASK 1e-8ep-19 4 95: 99583 DEBUG. SRC IDBGTASK.B32; ow (Be 
r IF NOT DBGSNMATCH( .INPUT_DESC, DBGSCS_CR, 1 ) } If pore input exists then 
. We nave an error. 
r ° DBGSSYNTAX_ERROR(. INPUT_DESC); ! Signal the error. 
ri 
4 RETURP 0; ' £((02=tbs))% 
4 END; ! end of DBGSNPARSE_SHOW_TASK 
07FC 00000 .ENTRY DEGSNPARSE SHOW_TASK, Save R2,R3,R4,R5,R6,— ; 2135 
5A 000000006 9E 00002 MOVAB DBGS$SYNTAX_ERROR, R10 : | 
9 99000006 9E 80009 MOVAB LIBS$SIGNAL; ; 
8 0 00006 00 9€ 90019 MOVAB DBGSNSAVE DECIMAL INTEGER, RB : 
36 0000000" EF SE Sool NOVAR  PRCSEE COLONT RS 
38 §00980006 0 H $00 ' MOV DBGSNMATCH, R5 : 
SE 4 Ce 0002C SUBL2 #4, SP : | 
54 08 AC 4 C1 0002F ADDL3 #4, VERB_NODE, LINK + 2175) 
5 04 AC 00 000 MOVL INPUT_DESC, R$ : 2180) 
01 DD 00038 1$: PUSHL : 
08 Ag 9F O003A PUSHAB DBGS$CS_SLASH : | 
53 DD 00030 PUSHL 3 
65 03 F 900 F CALLS #3, DBGSNMATCH ; 
03 0 ‘ 0042 BLBS RO, 28 : 
O2BF 31 0004 BRW 39§ : 
01 oD 00048 2$: PUSHL #1 : 2190) 
FF79 C6 9F O004A PUSHAB DBGSCS_ALL ; 
DD 9004 PUSHL R ; 
65 93 FB 0005 CALLS #3, DBGSNMATCH : 
01 0 p1 0005 CMPL =—sRO, #1 ; 
14 12 00056 BNEG 4 ; 
03 od 00058 PUSHL @# + 2192 
67 gi FB 005A CALLS #1, DBGSGET_TEMPMEM ; 
52 D 9990 MOVL RO, ADVERB_NODE : 
4 52 D0 0006 MOVL  ADVERB_NODE, (LINK) t 2193 
4 08 A 3 006 MOVAB 8(R2) K + 2194 
62 02 90 0006 MOVB #2, (ADVERB_NODE) > 2195 
ct 11 O6A 3$: BRB 1$ : 185 
1 DD 0006C 4$: PUSHL #1 : 2202 
FF7D ¢ OF 6 PUSHAB DBGS$CS_CALLS ; | 
DD 000 PUSHL R F | 
65 FB 0074 CALLS #3, DBGSNMATCH ; | 
01 D 077 CMPL) SRO, #1 ; | 
é 12 OO07A BNEQ Bs ; 
DD 0007¢ PUSHL @ > 2204 
67 i. O7E CALLS #1, DBGSGET_TEMPMEM : 
2 D MOVL RO, ; 
94 MOVL AOVERB_NODE . (LINK) 3 2205 | 
4 08 A F 7 MOVAB 8(Re) : 06 
62 0 9 4 MOVB #3, (ADVERB_NODE) > 2207 
1 oO E PUSHL #1 3 09 | 


<3 | 


1 
v04-000 DBGSNPARSE _SHOW_TASK 1 
0048 F BB 90 
63 3 a} 94 
D E 97 
1 pp 9A 
06 A 7 9C 
DD oF 
63 4 i 
A 3 AG 
046 «OA F QOOA7 5$: 
535 DO 4 
68 fo AC 
1 pa gs: 
04 A2 1 4 Bi 7$: 
3) pe3 
1 3 4 8$ 
83 «OA F 3 B9 
53 Dd 0008C 
65 4 FB OOOBE 
01 0 01 000C1 
03 Db oooce 
’ 
¢7 $3 F 08 
2 50 00 000CB 
64 52 00 OOOCE 
54 08 A 3 00001 
62 04 90 00005 
90 11 00008 
01 go DOODA 9$ 
8C A F QO00DC 
5 DD 000DF 
65 4 FB Q00E1 
01 0 01 O00E4 
14 12 0Q00E7 
67 i Pe oo0gs 
52 50 OOEE 
4 4 te 
4 08 A OF4 
62 05 90 000F8 
3 11 OOOFB 
1 4 OOFD 10$: 
91 A F OOOFF 
5 83 Pe Ob1oe 
$3 g of 107 
14 12 OO10A 
03 dd 0010C 
7 1 F 1 
2 D 1 
4 114 
4 08 A 117 
62 06 118 
et 1 11 
1 go 120 11$: 
9D A F 1 
3 DD 001 
65 FB 001 


8 
GrSep-198e 02:48:49 YAK-I) BLigs-32 v4.02742 


#*M<R3,RO> 

#3, DaGSNMATCH 

RO, 

“ieee 

#3, DBGSNMATCH 

4 (ADVERB_NODE) 

#2, DBGSNSAVE_DECIMAL_INTEGER 
, 4CADVERB_NODE) 


G$CS_DEADLOCK 


» DBGSNMATCH 
. wi 


VER E 
ADVERB_NODE, (LINK) 


pei 
#3, DBGSNMATCH 
A) 


#1, DBGSGET TEMPMEM 
RO, ADVERB_RODE 
ADVERB_NODE, (LINK) 


) K 
#3. (ADVERB_NODE) 


a 

DBGSCS_HOLD 

’ ppeseures 
§ 8 


Pe Oe Oe Se Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se He Se Se Se Se Be Be Be Be Se Be Be Se Se Se Se Se Be Se Be Be Be Fe Se Bs Se Se Be Be Be Se Be Be Be Be Be 


2210 


al 


B 
DBGSNPARSE_SHOW_TASK 1b-se 
"um 
0058 OD OOlSe 128 
$7 1 FB 001 
nae 
eS BE nt 
1 DD 00146 
g om hae 
10 p eB 140 
06 6 9F 001 
5 83 PB 001 
8 
0171 31 00150 
01 DD 00160 138: 
eH oe 
5 O§ FB 00167 
0 0 £9 OO16A 
4008 BF BB 00160 148: 
F Be bt O0TT4 
85 4B 0177 
gone FB 
a EE 
02 Ae oF 90189 
65 83 Pe Oo1BE 
D9 85 EB ole 
01 DD 00194 178: 
FE AG 9F 00196 
65 PB 00198 
23 4} 196 
omar A 
4008 SF BB OOIAA 188: 
? e bt O0I8i 
5 fe o01B4 
gq 00028248 BF DD 00186 
00 04 a2 et ' 1BF 19 
FE 14 20 
05 pD OoIc? 21 
B6 AG OOF 00169 
« RR 
1 1 
83 0014 


PAM 


pa19be $3:17:50 


AX-11 Ot igse2 V4.0-74 
DEBUG. SRC JDBGTASK.B32; 


#1, DBGSGET TEMPMEM 
RO, ADVERB, RODE 
ADVERB_NODE, (LINK) 
8(R2), LINK 
a7, (ADVERB_NODE) 
#3, DAGSNMATCH 
nd, Og 
* Yee 
#3. DEGSNMATCH 
RO. 138 
34$ 
"1 
* ype 
#3, DBGSNMATCH 
RO, 18$ 
#°M<R3,SP> 
#2 DBGSNSAVE DECIMAL _INTEGER 
PRIORITY, #31 

64426 
#1, LIBSSIGNAL 
PRIORITY, 4(ADVERB_NODE), 16$ 
* ete 


#3, DBGSNMATCH 
RO, 14$ 


ipmadnbeince 
a3, a SNMATCH 

Hi ; : 

#16584 

35$ 


#*A<R3,SP> 
#2 DBGSNSAVE DECIMAL INTEGER 
PRIORITY, # 


24 
#1, LIBSSIGNAL 
PRIORITY, 4(ADVERB_NODE), 208 
r) 
DBGSCS_STATE 


#3, DBGSNMATCH 
RO, ai 
22$ 


; 2265 


: 2271. 
; 2273 
: 2275. 


276 
278 


2279 


2281 


2286 


2288 
2290 


8 


—__ 


TA 
| ¥O0~000 DBGSNPARSE_SHOW_TASK 
01 
i | 
4 08 
62 ; 
os 00K 
3 6 
06 ; 
00cA 
FC i 
: 
65 
69 5 
1 
DF i 
65 6 
01 0 
06 
06 a2 01 
4 
01 
D9 OA 
65 
81 : 
06 a2 ! 
F 
1 
E7 
a 
oi 3 
ae 
A 
01 
Fl oA 
63 
1 
06 a2 | 
6A 
1 


son 
~ 
~m 
oe 


Oo *OC@WWloOomoowerc— 


NO OOM "DWOOOCTO "OW 


ow 


—_— 


at at ot 
DOWD OO 


PUPS S~ &~ & 
POW" OF DOUVWomnma 


[280 —OfF -@ 9 79 ON -- D9 "9 ON - DO "9 Or” 


onto —-90 90 "0 OO 9 - 90 "0 O09 9 9 "09 OO -9 — 


w$ep-i9be $Sitv:s2 — EDeeuG. smc SootasK:032; 


if* 

# 

#1, DBGSGET_TEMPMEM 
RO, ADVERB_RODE 
AOVERE NODE. (LINK) 
8(R2), “LINK 

#10, (ADVERB_NODE) 
#3" TAGS HMATCH 

R ; bee 
pen: 

#3, DBGSNMATCH 

RO, O88 

i! 
ee 


kage 


'd 
es cam 


#3, DBGSNMATCH 
RO, #1 


2 
#1, 4(ADVERB_NODE) 
29$ 


nl 
* ps 
#3, DBGSNMATCH 
RO. #1 


2 
is 4 (ADVERB_NODE ) 
29$ 


ri 
ppc: 
#3, DBGSNMATCH 
# 

4 
29$ 
DBGSCS_ TERMINATED 
2 GSNMATCH 


4(ADVERB_NODE ) 


4 (ADVERB _NODE ) 


. DBGSSYNTAX_ERROR 


BBD BVTD BDO Br Br 
_ ~O' 
eo Ge oe 


— 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Be Se Se Se Se Se Se Ge Ge Se Se Se Se Ge Se Se Se Se Be Se Se Se Se Se Se Se 


re 


2311 


2319 


2320 
2322. 


2323 
2325 


2326 
2328 


2329 
2334 
2338 


ve 
—4 
ran 
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A 
GTASK 1B-se -1984 02:43: AX-11 Bligs-32 V4.0-74 P 4 
M0000 DBGSNPARSE_SHOW_TASK ergee~} 38s 98:43:33 «— HMadG Bk Sbaatabe osor4 aoe 69 
02 Ab OF 6 PUSHAB DBGSCS_COMMA ; 
dD PUSHL R : 
gs Q 7 CALLS #5, ROgSAMATCH : 
A 4 f BLBS R 4 : 
FFI A BRw $ ; 3339 
01 pp 70 30$: PUSHL #1 + 2347 
DF AG OF OOO7F PUSHAB DBG$CS_RUNNING : 
DD PUSHL R : 
65 FB CALLS #3, DBGSNMATCH : 
01 D 7 CMPL 7 : 
6 1 A BNEG 4 ©=-_-3:18 3 
04 A2 1 2 MOVL #1, 4(ADVERB_NODE) t 2348 
2 RB 3a§ : 
01 po 92 318: USHL #1 + 2350 
09 AB OF 00294 PUSHAB DBGSCS_READY : 
DD 00297 PUSHL R : 
+} FB 00299 CALLS #3, DBGSNMATCH : 
01 D} 9C CMPL) RO. #1 : 
: : OF BNEG 32$ ; 
04 A2 D Al MOVL #2, 4(ADVERB_NODE) : 2351 
D 11 00 a3 BRB 3a$ : 
01 po O2A7 32$:  PUSHL #1 > 2353 
E7 Ab 9F 002A9 PUSHAB DBG$CS_SUSPENDED ; 
53 DD OO2AC PUSHL R F 
65 FB OOOAE CALLS #3, DBGSNMATCH : 
01 D4 0 B1 CMPL sso. #1 : 
6 3 B4 BNEQ 3 
04 A2 4 00 00286 MOVL #4, 4(ADVERB_NODE) + 2354 
48 11 OO2BA BRB 3a§ ; 
01 po BC 33$:  PUSHL #1 : 2356 
F1 Ab OF OO2BE PUSHAB DBGS$CS_TERMINATED : | 
53 DD 0 C1 PUSHL R F 
65 FB 002C3 CALLS #3, DBGSNMATCH ; 
1 D1 0 C6 CMPL sO. #1 ; 
4 \s C BNEQ 3 
04 A2 8 og 0 CB MOVL #8, 4(ADVERB_NODE) > 2357. 
00028000 BF DD 6 01 348: PUSHL #164048 : 2366. 
69 1 FB 00207 35$: CALLS #1, LIBSSIGNAL ; | 
: 11 OOODA BRB 338 ; 2185 
po DC 36%:  PUSHL # > 23 
BC Ab 9F 0020 PUSHAB DBGSCS_STATISTICS ; 
DD O02E PUSHL R ; 
65 FB é CALLS #3, DAGSNMATCH : 
1 p ES CMPL «sO, : 
14 12 O02E BNEG =: 378 ; 
3 0D 002EB PUSHL #3 : 2375 
? i, ED CALLS #1, DBGSGET_TEMPMEM : | 
2 D F MOVL RO, ADVERB_RODE ; 
4 F MOVL ADVERB_NODE, (LINK) : 2376. 
4 08 A F MOVAB &(R2), “LINK : 237 
62 FA MOVB #11, (ADVERB_NODE) ; 78 
1 FD BRB 38$ ; 18 
DD OOOFF 37%: PUSHL R > 2385 | 
6A 1 Fe 1 CALLS #1, DBGSSYNTAX_ERROR F | 
FD31 3 388: BRW 1$ ; 31 
64 D4 7 39$: CLRL (LINK) : 2391 


8 
a ee IEAUESAREE QBHEGE WES SapadR ttt 


01 DD PUSHL #1 
06 =A 8? PUSHAB DBGSCS_CR 
DD PUSHL R 
6 F CALLS #3, D8 SNMATCH 
4 E 1 BLBS RO, 4 
54 08 AC C 1 ADDL3 #8. VERB_NODE, LINK 
4 0D 00318 408 PUSHL @# 
6? 1 F 1 CALLS #1, DBGSGET_TEMPMEM 
f 4 MOVE Nag 
4 08 A 4 6 MOVAB 8(R23, LINK 
BD o08SC PUNE NOUN. NODE 
7E 000000006 mA MOV ZBL DBGSGB_RADIX, -(SP) 
000000006 00 4 FB i CALLS #4, DBGSNPARSE_EXPRESSION 
1 pp 0 PUSHL # 
02 Ab OF PUSHAB DBGSCS_COMMA 
DD ¥34 PUSHL R 
65 re 0084 CALLS #3, DBGSNMATCH 
D0 0 8 0034 BLBS RO, 40$ 
01 BD 4B PUSHL 
04 AB 9F 00340 PUSHAB DBGSCS_CR 
53 DD 0035 PUSHL R 
65 FB 0 CALLS #3, DAGSNMATCH 
05 9 £8 00 BLBS RO. 41 
DD 00358 PUSHL 
6A 01 FB O035A CALLS #1, DBGSSYNTAX_ERROR 
04 0035D 41$ RET 


; Routine Size: 862 bytes, Routine Base: DBGSCODE + O7CE 


; 1231 2428 1 
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2394 
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2417 
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GTASK 1b-5e ep-1984 02:4 AX-11 Bligs-3 P 4 
v0e-000 DBGSNPARSE_SHOW_TASK sp-19ke 13:13:83  EDteuG. eacdoectasn ose, oe 
; : r 6 ! ROUTINE DBGEXTSPRINT_ROUTINE (FLAG, FUNCTION, STRING, FAO_ARG) : NOVALUE = ! 26(-tbs))% 
3; 1255 4 1 ! FUNCTION 
; ! ? § : Function of this routine goes here. 

3 3 4 1 ! INPUTS 

3 1 455 1! List of inputs goes here, both explicit and implicit, 

3 : re ne ; } complete with descriptions. 

3; 126 4 3 1 ! OUTPUTS 

3; 126 4 1} List of outputs goes here, together with known side effects. 
3 1266 “ay +! 

3 1245 441 1 

3 126 44 BEGIN 

3 126 44 

3: 126 444 LOCAL 

3 126 445 AXXKKK; !€<eeeeeeee= Local declarations -------- 
: 1250 44 

3 1 3 4 

3 3 ¢ G4 

3 ; t t3) The text of the routine starts here. 

3; 125 45 RETURN 0; 

3; 125 45 

; 1258 454 END; 


0000 00000 DBGEXTSPRINT ROUTINE: 
-WORB Save nothing : 3629 
04 00002 RET 3: 2454 


Routine Size: 3 bytes, Routine Base: DBGSCODE + OB2C 
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; ; rs r ‘ } ROUTINE LOCAL_ROUT_NAME = 

> eg 457 1 | FUNCTION 

; : o7 ? 8 ! } Function of this routine goes here. 

: 1265 4660 1 1S 

3 1 68 4 1! List of inputs goes here, both explicit and implicit, 

: ; ° : ! : complete with descriptions. 

:1 6 464 1 | OUTPUTS 

: } ; ase : : List of outputs goes here, together with known side effects. 

: 127 467 1 

3 : 7 488 BEGIN 

> 1275 290 LOCAL 

3 1 ug 471 AXKKANKK; 4 Local declarations -------<- 
3: 127 org 

3 127 47 

3 127 474 

: ; 39 ore 7 The text of the routine starts here. 

: 128 4677 3  ### $@@ucuceceuncnndtaeneseennene FIRST LINE OF CODE cocecccecccccccccecccccccce 
3 1 88 ore RETURN 0; 

3 1 47 

: 1285 480 END; 


0000 00000 LOCAL_ROUT yo 


oW Save nothing 3 455 | 
50 04 00002 CLAL RO 3 2478 
04 00004 RET 480 | 


Routine Size: 5 bytes, Routine Base: DBGSCODE + OB2F 


; 1286 481 1 
> 1287 482 0 END ELUDOM 

.EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
$ DBGSPLIT 152 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC ALIGN) 
> DBGSCODE 2868 NOVEC.NOWRT, RD. EXE. SHR. LCL. REL. CON, PIC.ALIGN(O) 


a ee ee 


min 


8 
DBGSNPARSE_SHOW_ TASK e-8eb-18be 3:17:83 Ubtaus. SacSoagtasnso3oc4 | Page 43) 
Library Statistics 


wnenanee Symbols eeeeaece Pages Processing 
File Total Loaded Percent Mapped Ti 


$ $DdU SYSLIBILIB. L325 1861 100 
ENE “YY ff 


$BSS$oue fpepus.coupecnscis:1 = Hk 


: (DEBUG .0BJ JDBGGE 


; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DBGTASK/OBJ=OBJ$:DBGTASK MSRC$:DBGTASK/UPDATE=(ENH$:DBGTASK) 
3; Size: 2868 code + 152 data bytes 

; Run Time: 0: a4 


1 
Dd 
8 
CR 
G. 
N. 


; Lexemes/CPU-Min: 1 
; Memory Used: 451 pages 


; Elneaveru‘Rta: | 838 
; Compilation. Complete 


L EQUIPMENT CORPORATION 
ENTIAL -AND PROPRIETARY 


DIGIT 
CONFI 


IG 
ON 


0096 Vax7vms v4-o D 


